lumin/my-solutions
1
0
Fork 0
Code Issues Pull requests Activity

codewars: solve 'reduce but grow' challenge

Browse source
This commit is contained in:
Ivan R. 2024-02-20 01:10:14 +05:00
parent 782d4a8ac8
commit ec8417e0b0
No known key found for this signature in database
GPG key ID: 56C7BAAE859B302C
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
codewars/ocaml/reduce-but-grow/main.ml Normal file
View file

@ -0,0 +1,4 @@
let rec grow (xs: int list): int =
match xs with
| [] -> 1
| x :: v -> x * (grow v);;