personal/time-to-botec
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get compiler to give me a cool missing match case error

Browse Source
This commit is contained in:
NunoSempere 2023-10-15 00:45:01 +01:00
parent 4c4d053ab9
commit 4959255947
5 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
ocaml/out/samples
View File

Binary file not shown.

BIN
ocaml/out/samples.cmi
View File

Binary file not shown.

BIN
ocaml/out/samples.cmx
View File

Binary file not shown.

BIN
ocaml/out/samples.o
View File

Binary file not shown.

3
ocaml/samples.ml
View File

@ -36,12 +36,13 @@ let findIndex xs test =
let rec unwind xs = let rec unwind xs =
match xs with match xs with
| [] -> Some([])
| None :: ys -> None
| Some(y) :: ys -> ( | Some(y) :: ys -> (
match unwind ys with match unwind ys with
| Some(zs) -> Some(y :: zs) | Some(zs) -> Some(y :: zs)
| None -> None | None -> None
) )
| None :: ys -> None
(* Basic samplers *) (* Basic samplers *)
let sampleZeroToOne () : float = Random.float 1.0 let sampleZeroToOne () : float = Random.float 1.0