Changeset 27833

Timestamp:

01/03/09 21:57:19 (4 years ago)

Author:

hoge1e3

Message:

 

Location:

lang/javascript/nohada

Files:

• IE.html (modified) (2 diffs)
• perl/Stats.pm (modified) (6 diffs)

lang/javascript/nohada/IE.html

@@ -7 +7 @@
 <script src="js/widgets/HelloWorldWidget.class.js"></script>
 <script src="js/Mouse.js"></script>
+<script src="js/common.js"></script>
 <script src="js/WindowWidget.class.js"></script>
 <link rel="stylesheet" src="css/default.css"/>
@@ -28 +29 @@
   onmouseup="Mouse.handleEvents(event,'up')"
 >
-<textarea id=prog rows=24 cols=80>
-new WindowWidget("Hello, window world").show();
+<button onclick="go()" >GO</button><Br/>
+<textarea id=prog rows=12 cols=80>
+JSLoader.require("ObjectEditor.class",a);
+function a() {
+ var t=new ObjectEditor("desktop");
+ t.setRelationFilter(function (r){return r.name!="content";});
+ t.asWindow();
+}
 </textarea>
 <button onclick="go()" >GO</button><Br/>

lang/javascript/nohada/perl/Stats.pm

@@ -17 +17 @@
         $st=&sort(\%first);
         
-        for (my $i=0 ; $i<100 ; $i++) {
+        for (my $i=0 ; $i<1000 ; $i++) {
            &reduce($i);
         }
@@ -23 +23 @@
         my @sts;
         my $i=0;
+        my $disps={};
         for (@$st) {
-                my $l=$_->[0];
-                if (length($l)>1) {
-                        push @sts, [$l, $_->[1]];
-                        $i++;
-                        last if ($i>100);
+            my $word=$_->[0];
+                if (length($word)>1) {
+                        my $freq=$_->[1];
+                        if (length($word)>length($disps->{$freq})) {
+                            $disps->{$freq}=$word;
+                        }
                 }
         }
+        push @sts, (@$st+0);
+#       for (sort {length($disps->{$b})<=>length($disps->{$a})} 
+        for (sort {$b<=>$a} 
+                   keys %$disps) {
+        push @sts, [$disps->{$_} , $_];
+        }       
         @sts;
 }
+my $debug={};
 sub reduce {
     my $i=shift;
@@ -43 +52 @@
         my $s=&sort($cnt);
         $st=&merge($st,$s);
+        for (@$st) {
+           $debug->{$_->[0]}=1;    
+        }
 }
 sub merge{
@@ -51 +63 @@
            my $t=$to->[$ti];
            my $f=$from->[$fi];
-           if ((not $f) or ($t and $t->[1]>$f->[1])) {
+           if ((not $f) or ($t and &comp($f,$t)>0) ) {
               push @$res, $t;
                   $ti++;
@@ -72 +84 @@
           my $n=substr($v, $idx, $hlen+1);
           $n="$n<EOF>" if ($n eq $head);
+         # die ("[$n]: [$idx] [$head] [$v]") if ($debug->{$n});
           $cnt->{$n}++;
           $idx++;
@@ -92 +105 @@
        push @a,[$k,$v];
    }
-   [sort { $b->[1] <=> $a->[1]; } @a]; 
+   [sort { &comp($a,$b) } @a]; 
+}
+sub comp {
+   my ($a,$b)=@_;
+   my $d = $b->[1] - $a->[1];
+   unless ($d) {
+     return  (length($a->[0]) - length($b->[0]));
+   }
+   $d;   
 }
 sub sonota {