SHOW:
|
|
- or go back to the newest paste.
1 | to jeliprost :n | |
2 | if :n = 1 [op "false] | |
3 | make "p int :n/2 | |
4 | for [k 2 :p 1] [ | |
5 | if (remainder :n :k) = 0 [op "false] | |
6 | ] | |
7 | op "true | |
8 | end | |
9 | ||
10 | - | to testiraj :max |
10 | + | to prost :n |
11 | - | for [i 1 :max 1] [if jeliprost :i [pr :i] ] |
11 | + | while [not jeliprost :n] [ make "n :n - 1 ] |
12 | op :n | |
13 | end |