NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
colomon (8994)
colomon
(email not shown publicly)
(email not shown publicly)
Saturday January 10, 2009
02:58 PM
Sixth Script: First Working Version
Find all the primes to 200. Straightforward sieve implementation. Lacking some elegance, but when I attempted to use
:by(2) it didn't work for me.my @nonprime;
say 2;
for 3..200 -> $x, $y
{
unless (@nonprime.exists($x))
{
say $x;
my $i;
loop ($i = $x; $i < 200; $i += 2 * $x)
{
@nonprime[$i] = 1;
}
}
}
because that's exactly how much difference there is. :-)
--Larry Wall in <10209@jpl-devvax.JPL.NASA.GOV>
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Sixth Script: First Working Version 0 Comments More | Login | Reply /