Mercurial > repo
annotate src/ploki/examples/ref.pk @ 12285:69f123e9b0a2 draft
<b_jonas> STOP
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Wed, 01 Jan 2020 09:35:37 +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 #! |