mirror of
https://codeberg.org/ProgramSnail/truffle-lama.git
synced 2025-12-31 19:18:17 +00:00
17 lines
No EOL
159 B
Text
17 lines
No EOL
159 B
Text
var x;
|
|
|
|
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) |