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 |
