7 lines
201 B
Text
7 lines
201 B
Text
to prime? :n
|
|
if :n < 2 [output "false]
|
|
if :n = 2 [output "true]
|
|
if equal? 0 modulo :n 2 [output "false]
|
|
for [i 3 [sqrt :n] 2] [if equal? 0 modulo :n :i [output "false]]
|
|
output "true
|
|
end
|