links

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

The sieve of eratosthenes

Clean

// Sieve of Eratosthenes in Clean
// Written by Rob Hoelz
// To compile: clm -nt -nr sieve

module sieve

import StdEnv
import ArgEnv

printAll [] console = console
printAll [x:xs] console = printAll xs (fwrites " " (fwritei x console))

generate [x:xs] limit
    | (x * x) <= limit = [x : (generate (filter (((<>) 0) o (flip (rem) x)) xs) limit)]
    | otherwise = [x:xs]

Start world
        # (console, world) = stdio world
        # console = let limit = toInt getCommandLine.[1]
                    in printAll (generate [2..limit] limit) console
        # (ok, world) = fclose (fwrites "\n" console) world
        | otherwise = world

back to Eratosthenes page

stats

It is Friday December 05, 2008 10:57 am
This page served 886 times
This page last modified: April 14, 2008 11:28 am
Your IP address is: 38.103.63.61
You are browsing using: CCBot/1.0 (+http://www.commoncrawl.org/bot.html)
You are browsing from: United States.
badcomputer.org's uptime: 10:57:09 up 24 days, 15:07, 2 users, load average: 0.00, 0.00, 0.00