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