Mercurial > repo

comparison src/ploki/examples/fact.pk @ 4223:ac0403686959

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> rm -rf src/ploki; mv ploki src
author HackBot
date Fri, 20 Dec 2013 22:18:50 +0000
parents
children
comparison
equal deleted inserted replaced
4222:b0f3e267bb1e 4223:ac0403686959
1 #!../ploki
2 LET n \ARG:1
3 FOR $main$1$loop LET x @kt n
4 LET n n/x
5 "\Vx "
6 IF @NOT(n > 1)
7 "
8 END
9 FI
10 NEXT $main$1$loop
11
12 FOR kt LEET i 2
13 FOR kt$1$loop IF \@ / 2 < i
14 KTHX \@
15 FI
16 IF \@ % i = 0
17 KTHX i
18 FI
19 LET i i + 1
20 NEXT kt$1$loop