[Chicken-users] Good way to code the equivalent to this?

[Matt Welland]

My attempts all use gigs of memory and run 10x as long.

#!/usr/bin/perl -w
print "Filling the array with 250000 entries.\n";
foreach $n (0 .. 250000) {
  $x = int(rand(500000));
  $y = int(rand(500000));
  $a{$x}{$y}=1;
}

print "Reading from the arrary 10000 times\n";
$hits=0;
foreach $n (0 .. 10000) {
  $x = int(rand(500000));
  $y = int(rand(500000));
  if (defined $a{$x}{$y}) {
    $hits++;
  }
}

print "Done\n";


-- 
Visit www.kiatoa.com, a user-run, self governing
web site.