From dcf2d68b0eefc39406b062a8d821f5a81c455e4c Mon Sep 17 00:00:00 2001
From: Daniele Fucini <dfucini@gmail.com>
Date: Sun, 10 Nov 2024 11:17:37 +0100
Subject: [PATCH] Update Haskell solution for Problem 14

---
 Haskell/p014.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Haskell/p014.hs b/Haskell/p014.hs
index d84ec3c..d810b45 100644
--- a/Haskell/p014.hs
+++ b/Haskell/p014.hs
@@ -15,10 +15,10 @@
 -- NOTE: Once the chain starts the terms are allowed to go above one million.
 
 collatz :: (Integral a) => a -> [a]
+collatz 1 = [1]
 collatz n
-    | n == 1 = [1]
-    | n `mod` 2 == 0 = n:(collatz $ n `div` 2)
-    | otherwise = n:(collatz $ 3 * n + 1)
+    | even n = n:(collatz $ n `div` 2)
+    | odd n  = n:(collatz $ 3 * n + 1)
 
 maxCollatzLength :: Int -> Int
 maxCollatzLength n = snd $ maximum $ zip [ length (collatz x) | x <- [1..n-1] ] [1..n-1]