Mercurial > repo
diff src/ploki/examples/fact.pk @ 4223:ac0403686959
<oerjan> rm -rf src/ploki; mv ploki src
| author | HackBot |
|---|---|
| date | Fri, 20 Dec 2013 22:18:50 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/ploki/examples/fact.pk Fri Dec 20 22:18:50 2013 +0000 @@ -0,0 +1,20 @@ +#!../ploki +LET n \ARG:1 +FOR $main$1$loop LET x @kt n +LET n n/x +"\Vx " +IF @NOT(n > 1) + " + END +FI +NEXT $main$1$loop + +FOR kt LEET i 2 +FOR kt$1$loop IF \@ / 2 < i + KTHX \@ +FI +IF \@ % i = 0 + KTHX i +FI +LET i i + 1 +NEXT kt$1$loop