mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 14:58:50 +00:00
15 lines
159 B
Text
15 lines
159 B
Text
|
fun f (x) {
|
||
|
|
case x of
|
||
|
|
`a -> write (1)
|
||
|
|
| `b -> write (2)
|
||
|
|
| `c -> write (3)
|
||
|
|
| _ -> write (4)
|
||
|
|
esac
|
||
|
|
}
|
||
|
|
|
||
|
|
x := read ();
|
||
|
|
|
||
|
|
f (`a);
|
||
|
|
f (`b);
|
||
|
|
f (`c);
|
||
|
|
f (`d)
|