mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
23 lines
No EOL
231 B
Text
23 lines
No EOL
231 B
Text
fun f () {
|
|
local x, l = {};
|
|
fun g () {return x}
|
|
|
|
x := 1;
|
|
l := g : l;
|
|
|
|
x := 2;
|
|
l := g : l;
|
|
|
|
return l
|
|
}
|
|
|
|
fun p (l) {
|
|
case l of
|
|
{} -> skip
|
|
| h : tl -> write (h ()); p (tl)
|
|
esac
|
|
}
|
|
|
|
local x = read ();
|
|
|
|
p (f ()) |