blob: 4d609c16a765f2633f28fe76db11cc341b642241 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
procedure main()
local limit, s, i
limit := 100
s := set([])
every insert(s,1 to limit)
every member(s,i := 2 to limit) do
every delete(s,i + i to limit by i)
primes := sort(s)
write("There are ",*primes," primes in the first ",limit," integers.")
write("The primes are:")
every write(right(!primes,*limit + 1))
end
|