Anonymous user
Primality by trial division: Difference between revisions
→{{header|LSE64}}
(→{{header|Perl 6}}: simplify entry using multi) |
|||
Line 419:
=={{header|LSE64}}==
<lang LSE64>over : 2 pick
2dup : over over
even? : 1 & 0 =
Line 433:
prime? : dup even? then drop false
prime? : dup 2 = then drop true
prime? : dup 2 < then drop false</lang>
=={{header|Lua}}==
<lang Lua>function IsPrime( n )
if n <= 1 or ( n ~= 2 and n % 2 == 0 ) then
return false
end
for i = 3, math.sqrt(n), 2 do
if n % i == 0 then
return false
end
end
return true
end</lang>
=={{header|M4}}==
| |||