Re: [MacPerl] BigInt sluggishness.

[Chris Nandor <pudge@pobox.com>]

At 16:49 -0500 2000.12.02, bert wrote:
>Thanks a lot for any help and suggestions,

How about using an array instead?  Each class is an array of 71 values.

#!perl -wl
my @Basketweaving_101 = split //,
    '1000000111000000000000000111000000000000000000000';
my @other = split //,
    '1000000000001000000000000011100000000000000000000';
for (1 .. 71) {  # whatever number you need, skip first one
  print "bad: $_" if $Basketweaving_101[$_] && $other[$_];
}
__END__

Maybe that's too slow too, I dunno.  But the idea is that maybe you should
rethink this a bit.

-- 
Chris Nandor                      pudge@pobox.com    http://pudge.net/
Open Source Development Network    pudge@osdn.com     http://osdn.com/

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org