tests/general/primes.icn


1
2
3
4
5
6
7
8
9
10
11
12

#SRC: JCON

# a simple and slow prime number generator

procedure main()
   local i
   every i := 2 to 100 do {
      if i % (2 to i - 1) = 0 then
         next
      write(i)
   }
end