mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
22 lines
No EOL
185 B
Text
22 lines
No EOL
185 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)
|
|
}
|
|
|
|
var x = read ();
|
|
|
|
f ({a, b, c}) |