tweaks on ocaml match

2023-10-15 02:25:59 +01:00 · 2023-10-15 02:25:59 +01:00 · 50fb88db7c
commit 50fb88db7c
parent 3befb4af4d
5 changed files with 4 additions and 4 deletions
--- a/ocaml/out/samples
+++ b/ocaml/out/samples
--- a/ocaml/out/samples.cmi
+++ b/ocaml/out/samples.cmi
--- a/ocaml/out/samples.cmx
+++ b/ocaml/out/samples.cmx
--- a/ocaml/out/samples.o
+++ b/ocaml/out/samples.o
--- 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