lama_byterun/regression/test068.lama
Dmitry Boulytchev 61296c51e7 Massive renaming
2020-02-16 00:21:15 +03:00

19 lines
No EOL
281 B
Text

fun makeLazy (f) {
local flag = 0, value = 0;
return fun () {
if flag
then return value
else
value := f ();
flag := 1;
return value
fi
}
}
local l = makeLazy (fun () {write (1); return 800});
local x = read ();
write (l ());
write (l ())