annotate src/ploki/examples/fact.pk @ 12244:52471b79c393
draft
<b_jonas> addwhatis quotes(5hackeso) - no description
author |
HackEso <hackeso@esolangs.org> |
date |
Thu, 05 Dec 2019 23:40:39 +0000 |
parents |
ac0403686959 |
children |
|
rev |
line source |
4223
|
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
|