vladan/ocaml-cornell
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Exit immediately when list is empty

Browse source
This commit is contained in:
Vladan Popovic 2020-06-17 20:24:25 +02:00
parent 98d37ebf50
commit 21f5bd27ed
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
warmup.ml
View file

@ -31,7 +31,7 @@ let () = assert (syr 3 = 7)
let rec next_nacci n l sum = let rec next_nacci n l sum =
if n = 0 then sum if n = 0 then sum
else match l with else match l with
| [] -> next_nacci (n - 1) [] sum | [] -> sum
| h :: t -> next_nacci (n - 1) t (sum + h) | h :: t -> next_nacci (n - 1) t (sum + h)
let nacci n k = let nacci n k =