2018-05-16 16:50:36 +03:00
|
|
|
fun f (a) {
|
|
|
|
|
case a of
|
2019-03-07 19:06:04 +03:00
|
|
|
A (x, y, z) -> write (x + y + z)
|
|
|
|
|
| B (x, y, z) -> write (x + y + z)
|
2018-05-16 16:50:36 +03:00
|
|
|
esac
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
x := read ();
|
|
|
|
|
|
2019-03-07 19:06:04 +03:00
|
|
|
f (A (100, 200, 300));
|
|
|
|
|
f (B (500, 600, 700))
|
