From 21f5bd27ed88c6b609f058ed790c6c0fd857ead8 Mon Sep 17 00:00:00 2001
From: Vladan Popovic <vladanovic@gmail.com>
Date: Wed, 17 Jun 2020 20:24:25 +0200
Subject: [PATCH] Exit immediately when list is empty

---
 warmup.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/warmup.ml b/warmup.ml
index c535b1c..a0f9152 100644
--- a/warmup.ml
+++ b/warmup.ml
@@ -31,7 +31,7 @@ let () = assert (syr 3 = 7)
 let rec next_nacci n l sum =
   if n = 0 then sum
   else match l with
-       | [] -> next_nacci (n - 1) [] sum
+       | [] -> sum
        | h :: t -> next_nacci (n - 1) t (sum + h)
 
 let nacci n k =