links

< home >
< unix stuff >
< code >
< writing >
< archive >
< music >
< photos >
< recipes >
< site map >
< about badcomputer >

The sieve of eratosthenes

io

#!/usr/bin/env io
# Written by Darren Kirby

x := args at(1) asNumber
set := Range setRange(3, x, 2) asList

2 print
" " print

while(set at(0) <= x sqrt,
    curr := set removeFirst
    curr print
    " " print
    set foreach(i, if(i mod(curr) == 0, set remove(i)))
)

set foreach(i, i print ; " " print)
"\n" print

back to Eratosthenes page

stats

It is Thursday July 24, 2008 9:32 am
This page served 1281 times
This page last modified: April 14, 2008 11:28 am
Your IP address is: 38.103.63.16
You are browsing using: CCBot/1.0 (+http://www.commoncrawl.org/bot.html)
You are browsing from: United States.
badcomputer.org's uptime: 09:32:59 up 12 days, 19:59, 3 users, load average: 1.01, 1.03, 1.00