[ 5:40:10.75] P:\test\demerphq>del *.fuzz rem Ensure a clean plate

[ 5:40:16.21] P:\test\demerphq>dir
 Volume in drive P has no label.
 Volume Serial Number is BCCA-B4CC

 Directory of P:\test\demerphq

18/11/2004  05:40    <DIR>          .
18/11/2004  05:40    <DIR>          ..
18/11/2004  05:38             9,597 demerphq.pl
               1 File(s)          9,597 bytes
               2 Dir(s)  48,390,365,184 bytes free

[ 5:40:21.90] P:\test\demerphq>perl demerphq.pl 
--word_size=25 --string_size=1000 --words=1
2>&1 | find "****"

**** WordSize: 25 
     StringSize: 1000 
     WordCount: 1 
     StringCount: 1000  
     Xor: 4.453125 
     Trie: 10.390625 (1.859375 + 8.53125)

**** perl.exe  416 0 12,320 K

[ 5:40:43.59] P:\test\demerphq>perl demerphq.pl 
--word_size=25 --string_size=1000 --words=10
2>&1 | find "****"

**** WordSize: 25 
     StringSize: 1000 
     WordCount: 10 
     StringCount: 1000  
     Xor: 21.0625 
     Trie: 95.796875 (2.328125 + 93.46875)

**** perl.exe  3196 0 78,164 K

[ 5:42:51.90] P:\test\demerphq>perl demerphq.pl 
--word_size=25 --string_size=1000 --words=100
2>&1 | find "****"

#### The above run self-terminated (crashed) because it was out of memory!!! ####

[ 5:49:20.62] P:\test\demerphq>perl demerphq.pl 
--word_size=25 --string_size=1000 --words=20
2>&1 | find "****"

**** WordSize: 25 
     StringSize: 1000 
     WordCount: 20 
     StringCount: 1000  
     Xor: 41.453125 
     Trie: 195.71875 (2.5 + 193.21875)

**** perl.exe 2708 0 149,812 K

[ 5:53:46.56] P:\test\demerphq>perl demerphq.pl 
--word_size=25 --string_size=1000 --words=30
2>&1 | find "****"

**** WordSize: 25 
     StringSize: 1000 
     WordCount: 30 
     StringCount: 1000  
     Xor: 59.59375 
     Trie: 293.75 (2.59375 + 291.15625)

**** perl.exe 3504 0 222,616 K

[ 6:00:00.59] P:\test\demerphq>perl demerphq.pl 
--word_size=25 --string_size=1000 --words=40
2>&1 | find "****"

**** WordSize: 25 
     StringSize: 1000 
     WordCount: 40 
     StringCount: 1000  
     Xor: 79.265625 
     Trie: 404.96875 (2.734375 + 402.234375)

**** perl.exe 3412 0 293,504 K

[ 6:13:48.76] P:\test\demerphq>perl demerphq.pl 
--word_size=25 --string_size=1000 --words=50 
2>&1 | find "****"

**** WordSize: 
     25 StringSize: 1000 
     WordCount: 50 
     StringCount: 1000  
     Xor: 97.546875 
     Trie: 494.3125 (2.796875 + 491.515625)

**** perl.exe 3524 0 366,868 K

##</code><code>##

## This:
exit(main(@ARGV));

## became this:
main(@ARGV);
print "**** $_"  for `tasklist /NH /FI "PID eq $$"`;
exit(0);