mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
9 lines
196 B
Text
9 lines
196 B
Text
|
fun traverse (l) {
|
||
|
|
case l of
|
||
|
|
{} -> skip
|
||
|
|
| (f@#fun) : tl -> f (); traverse (tl)
|
||
|
|
| _ : tl -> traverse (tl)
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
traverse ({1, fun () write(100), 2, 3, 4, 5, fun () write (200), 6, 7})
|