time-to-botec

commit 50fb88db7cc9216e4fb11f8f916e0f0eaf35048d
parent 3befb4af4d0c2a924168df20314f1da3e6eb78ec
Author: NunoSempere <nuno.sempere@protonmail.com>
Date:   Sun, 15 Oct 2023 02:25:59 +0100

tweaks on ocaml match

Diffstat:
M
ocaml/out/samples
 | 
0

M
ocaml/out/samples.cmi
 | 
0

M
ocaml/out/samples.cmx
 | 
0

M
ocaml/out/samples.o
 | 
0

M
ocaml/samples.ml
 | 
8
++++----

5 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/ocaml/out/samples b/ocaml/out/samples
Binary files differ.
diff --git a/ocaml/out/samples.cmi b/ocaml/out/samples.cmi
Binary files differ.
diff --git a/ocaml/out/samples.cmx b/ocaml/out/samples.cmx
Binary files differ.
diff --git a/ocaml/out/samples.o b/ocaml/out/samples.o
Binary files differ.
diff --git a/ocaml/samples.ml b/ocaml/samples.ml
@@ -56,10 +56,10 @@ let unwindSum xs =
 let unwindSumArray xs = 
   Array.fold_left(fun acc x -> 
     (
-      match (acc, x) with
-      | (Error e, _) -> Error e
-      | (_, Error e) -> Error e
-      | (Ok(sum), Ok(y)) -> Ok(sum +. y)
+      match acc, x with
+      | Error e, _ -> Error e
+      | _, Error e -> Error e
+      | Ok(sum), Ok(y) -> Ok(sum +. y)
     )
   ) (Ok 0.0) xs