Fix primary word

spencertipping · Nov 6, 2010 · 1df7b86 · 1df7b86
1 parent 372e13e
commit 1df7b86
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/fcm/similarity b/fcm/similarity
@@ -48,7 +48,7 @@ for (grep ! /-connected$/, @blocks) {
     my ($w, %links) = split;
     if (my $count = $vocabulary{$w}) {
       for my $k (keys %links) {
-        print $new_block "$_ $count ", join(' ', map "$_ $links{$_}", grep $_ ne $k, keys %links), "\n";
+        print $new_block "$k $count ", join(' ', map "$_ $links{$_}", grep $_ ne $k, keys %links), "\n";
       }
     }
   }

diff --git a/fcm/similarity.sdoc b/fcm/similarity.sdoc
@@ -48,7 +48,7 @@ for (grep ! /-connected$/, @blocks) {
     my ($w, %links) = split;
     if (my $count = $vocabulary{$w}) {
       for my $k (keys %links) {
-        print $new_block "$_ $count ", join(' ', map "$_ $links{$_}", grep $_ ne $k, keys %links), "\n";
+        print $new_block "$k $count ", join(' ', map "$_ $links{$_}", grep $_ ne $k, keys %links), "\n";
       }
     }
   }