Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- to jeliprost :n
- if :n = 1 [op "false]
- make "p int :n/2
- for [k 2 :p 1] [
- if (remainder :n :k) = 0 [op "false]
- ]
- op "true
- end
- to prost :n
- while [not jeliprost :n] [ make "n :n - 1 ]
- op :n
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement