vault backup: 2023-09-07 21:32:14
This commit is contained in:
@ -113,7 +113,7 @@ val f : int -> int = <fun>
|
||||
|
||||
### "Or" filter
|
||||
```Ocaml
|
||||
let f x match x with
|
||||
# let f x match x with
|
||||
0 | 20 -> 18
|
||||
| 1 | 11 | 12 -> 24
|
||||
|_ -> x * x ;;
|
||||
@ -121,7 +121,7 @@ let f x match x with
|
||||
|
||||
### Guarded filters
|
||||
```Ocaml
|
||||
let sign x = match x with
|
||||
# let sign x = match x with
|
||||
0 -> 0
|
||||
| y when y < 0 -> -1
|
||||
| _ -> 1
|
||||
|
Reference in New Issue
Block a user