lama_byterun/regression/test099.expr

19 lines
249 B
Text
Raw Normal View History

2020-01-05 03:33:17 +03:00
fun lazy (f) {
local flag = 0, value = 0;
fun () {
if flag
then value
else
value := f ();
flag := 1;
value
fi
}
}
local l = lazy (fun () {write (1); 800});
local x = read ();
write (l ());
write (l ())