annotate src/ploki/examples/mark.pk @ 12292:d51f2100210c
draft
<kspalaiologos> `` cat <<<"asmbf && bfi output.b" > /hackenv/ibin/asmbf
author |
HackEso <hackeso@esolangs.org> |
date |
Thu, 02 Jan 2020 15:38:21 +0000 |
parents |
ac0403686959 |
children |
|
rev |
line source |
4223
|
1 #!../ploki
|
|
2 FOREACH LET$@LEGS\EING
|
|
3 IF$:
|
|
4 END
|
|
5 FIX
|
|
6 IF;\ARG:1
|
|
7 LETO
|
|
8 FOR; LETP $[O~\R\ARG:1
|
|
9 IFP
|
|
10 LET P+O+P
|
|
11 LET$ $]P_"\33[1m\V ($[P]@LENGTH\ARG:1)\033[m"_($[(P+@LENGTH\ARG:1
|
|
12 LETO7+@LENGTH\ARG:1+P
|
|
13 IF$[O;
|
|
14 NEXT;
|
|
15 FISH
|
|
16 FITS
|
|
17 END IF BEGIN ELSE
|
|
18 $
|
|
19 NEXTEACH
|