mirror of
https://github.com/Reuh/anselme.git
synced 2025-10-28 00:59:31 +00:00
51 lines
No EOL
341 B
Text
51 lines
No EOL
341 B
Text
:post run = "check"
|
|
|
|
:x = [99]
|
|
|
|
:l = [1,x]
|
|
|
|
:n = 0
|
|
|
|
:$ f(t)
|
|
~ t!insert(len(l)+1)
|
|
|
|
f1: {l} {t}
|
|
|
|
CHECK
|
|
:! c
|
|
|
|
~ n < 1
|
|
REC
|
|
|
|
~ n += 1
|
|
~ f(t)
|
|
|
|
END REC
|
|
|
|
~ x!insert(12)
|
|
|
|
f2: {l}
|
|
|
|
CHECK 2
|
|
:! d
|
|
|
|
~ t!insert(len(t)+1)
|
|
|
|
~ t(2)!insert(len(l)+1)
|
|
|
|
~ error("t")
|
|
|
|
f3: {l} {t}
|
|
|
|
~ f(l)
|
|
|
|
FINAL
|
|
|
|
l: {l}
|
|
|
|
x: {x}
|
|
|
|
:$ check
|
|
AFTER ERROR
|
|
|
|
l: {l} |