16 lines
306 B
Factor
16 lines
306 B
Factor
USING: formatting kernel math math.primes
|
|
tools.memory.private ;
|
|
IN: rosetta-code.loops-inc-body
|
|
|
|
[let
|
|
42 :> i!
|
|
0 :> n!
|
|
[ n 42 < ] [
|
|
i prime? [
|
|
n 1 + n!
|
|
n i commas "n = %-2d %19s\n" printf
|
|
i i + 1 - i!
|
|
] when
|
|
i 1 + i!
|
|
] while
|
|
]
|