Mercurial > repo
annotate src/ploki/examples/ref.pk @ 12004:126be0a0d42a draft
<int-e> ` rm izash.c
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Tue, 12 Nov 2019 00:54:11 +0000 |
parents | ac0403686959 |
children |
rev | line source |
---|---|
4223 | 1 GOTO 496 |
2 FOR *&ref-assign*& LET $(\@ . 0) \@ . 1 | |
3 KTHX \@ . 1 | |
4 FOR *&ref-call&* LEET id \@ . 0 | |
5 LEET arg \@ . 1 | |
6 IF \L arg : "set" | |
7 LEET ref $$ref$$(id) | |
8 KTHX @OMFG @*&ref-assign*& #<ref \@#> | |
9 FI | |
10 KTHX $($$ref$$(id)) | |
11 FOR ref LEET val \@ | |
12 LET $$ref$cnt$$ += 1 | |
13 LEET ref @OMFG @*&ref-call&* #<$$ref$cnt$$ \@#> | |
14 LET $$ref$$($$ref$cnt$$) ref | |
15 LET $(ref) \@ | |
16 KTHX ref | |
17 496 #! |