mirror of
https://github.com/Reuh/anselme.git
synced 2025-10-28 09:09:31 +00:00
29 lines
No EOL
178 B
Text
29 lines
No EOL
178 B
Text
:l = [1]
|
|
|
|
:n = 0
|
|
|
|
$ f(t)
|
|
~ t!insert(len(l)+1)
|
|
|
|
f1: {l} {t}
|
|
|
|
CHECK
|
|
§ c
|
|
|
|
~ n < 1
|
|
REC
|
|
|
|
~ n += 1
|
|
~ f(t)
|
|
|
|
END REC
|
|
|
|
~ t!insert(len(t)+1)
|
|
|
|
f2: {l}
|
|
|
|
~ f(l)
|
|
|
|
FINAL
|
|
|
|
l: {l} |