codewars: solve 'reduce but grow' challenge

2024-02-20 01:10:14 +05:00 · 2024-02-20 01:10:14 +05:00 · ec8417e0b0
parent 782d4a8ac8
commit ec8417e0b0
1 changed files with 4 additions and 0 deletions
--- a/codewars/ocaml/reduce-but-grow/main.ml
+++ b/codewars/ocaml/reduce-but-grow/main.ml
@ -0,0 +1,4 @@
+let rec grow (xs: int list): int =
+  match xs with
+    | [] -> 1
+    | x :: v -> x * (grow v);;