lama_byterun/regression/test063.lama

11 lines
220 B
Text
Raw Normal View History

2019-09-25 00:26:11 +03:00
fun traverse (l) {
case l of
{} -> skip
| (f@#fun) : tl -> f (); traverse (tl)
| _ : tl -> traverse (tl)
esac
}
2019-10-16 01:13:52 +03:00
local x = read ();
traverse ({1, fun () {write(100)}, 2, 3, 4, 5, fun () {write (200)}, 6, 7})