1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
/+ nested /+ comments +/ ftw +/
foo @bar
foo @@bar(baz)
#!/usr/bin/env io
/* The Computer Language Shootout
http://shootout.alioth.debian.org
contributed by Robert Brandner */
mkbuf := method(n,
b := List clone
b preallocateToSize(n)
n repeat(b append(true))
return b
)
nsieve := method(n,
primes := mkbuf(n)
cnt := 0
for(i, 2, n,
if(primes at(i),
k := i + i
while (k < n,
primes atPut(k, false)
k = k + i
)
cnt = cnt + 1
)
)
writeln("Primes up to", n asString alignRight(9, " "), cnt asString alignRight(9, " "))
)
n := System args at(1) asNumber
nsieve( (2^n)*10000 )
nsieve( (2^(n-1))*10000 )
nsieve( (2^(n-2))*10000 )
// comment at eof
|
