mirror of
https://github.com/Reuh/anselme.git
synced 2025-10-27 16:49:31 +00:00
40 lines
325 B
Text
40 lines
325 B
Text
:n = 0
|
|
|
|
:$ f(c=1)
|
|
:a = *[]
|
|
|
|
|start: {a}
|
|
|
|
a!insert(c)
|
|
|
|
n += 1
|
|
|
|
|before recursion {c}: {a}
|
|
|
|
n < 5 ~
|
|
f(c+1)
|
|
|
|
|after recursion {c}: {a}
|
|
|
|
|new list each time:
|
|
|
|
f!
|
|
|
|
:$ g(c=1, a=*[])
|
|
|start: {a}
|
|
|
|
a!insert(c)
|
|
|
|
n += 1
|
|
|
|
|before recursion {c}: {a}
|
|
|
|
n < 5 ~
|
|
g(c+1, a)
|
|
|
|
|after recursion {c}: {a}
|
|
|
|
|pass list:
|
|
|
|
n = 0
|
|
g!
|