Sequence of primes by trial division: Difference between revisions

Content added Content deleted
mNo edit summary
Line 3,184: Line 3,184:
templates ifPrime
templates ifPrime
def n: $;
def n: $;
[2..~$n -> $n ~/ $ * $] -> \(<~[<=$n>]> $n ! \)!
[2..~$n -> $n mod $] -> \(<~[<=0>]> $n ! \)!
end ifPrime
end ifPrime