This commit is contained in:
danyaberezun 2018-11-12 16:32:24 +03:00
parent 5bfc0a08ec
commit c9bfede950
4 changed files with 25 additions and 52 deletions

View file

@ -3,4 +3,5 @@
3
1
2
3
3
5

View file

@ -14,8 +14,17 @@ case 3 of
esac;
case `a (1, 2, 3) of
`b -> write (1)
`a -> write (1)
| a@`a (_, _, _) -> case a of
`a (x, y, z) -> write (x); write (y); write (z)
esac
esac
esac;
case `a (1, 2, 3, 4, 5) of
`a -> write (0)
| `a (_) -> write (1)
| `a (_, _) -> write (2)
| `a (_, _, _) -> write (3)
| `a (_, _, _, _) -> write (4)
| `a (_, _, _, _, _) -> write (5)
esac