Select Code to Download

#! perl -slw
use strict;
...

printf "Comparing $RECS records on $BITS attributes to discover $count
+ matches took: %.9f s/rec\n",
    ( time() - $start ) / $RECS;

C:\test>1062617 -RECS=1e6 -BITS=64 -TARGET=0.33
Comparing 1e6 records on 64 attributes to discover 121722 matches took
+: 0.000001229 s/rec
...

C:\test>1062617 -RECS=1e6 -BITS=1024 -TARGET=0.33
Comparing 1e6 records on 1024 attributes to discover 0 matches took: 0
+.000000936 s/rec