wip

diff --git a/parse b/parse
index 9e1f6b4ac3b933309912fff31f9e7c70be10623b..82c896dcba4fe5ca376e07e2674024c4dab97af9 100755 (executable)
--- a/parse
+++ b/parse
@@ -69,7 +69,8 @@ foreach my $iv (@invotes) {
                my $vb = $vs[$ib];
                if ($va < $vb) { $vab[$ia][$ib]++; }
                elsif ($vb < $va) { $vab[$ib][$ia]++; }
-               p $va; p $vb;
+               print "\$vab[$ia][$ib]=$vab[$ia][$ib] # $voter $va<$vb\n";
+               print "\$vab[$ib][$ia]=$vab[$ib][$ia] # $voter $va>$vb\n";
            }
        }
     };