zapashcanon
3 years ago
4 changed files with 53 additions and 22 deletions
@ -1,11 +1,11 @@ |
|||
let type t = |
|||
| Coucou |
|||
| Sava |
|||
| Coucousava |
|||
| Ouiettoi |
|||
| Sava |
|||
in |
|||
fun x -> |
|||
match x |
|||
| Coucou -> True |
|||
| Sava -> False |
|||
| Coucousava -> True |
|||
| Ouiettoi -> True |
|||
| Sava -> False |
|||
end |
|||
|
@ -1,11 +1,11 @@ |
|||
let type t = |
|||
| Coucou |
|||
| Sava |
|||
| Coucousava |
|||
| Ouiettoi |
|||
| Sava |
|||
in |
|||
(fun x -> match x |
|||
| Coucou -> True |
|||
| Sava -> False |
|||
| Coucousava -> True |
|||
| Ouiettoi -> True |
|||
| Sava -> False |
|||
end |
|||
) : (t -> bool) |
|||
|
Loading…
Reference in new issue