From 1c60de981837d9325f07c436b59f3443692dc443 Mon Sep 17 00:00:00 2001
From: Joseph Ferano <joseph@ferano.io>
Date: Mon, 27 Feb 2023 18:13:54 +0700
Subject: [PATCH] Not sure

---
 Haskell.org | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/Haskell.org b/Haskell.org
index 750bde9..b7d1037 100644
--- a/Haskell.org
+++ b/Haskell.org
@@ -18,8 +18,11 @@ https://wiki.haskell.org/H-99:_Ninety-Nine_Haskell_Problems
 myLast [] = error "Cannot accept an empty list"
 myLast [x] = x
 myLast (_:xs) = myLast xs
+
+myLast [1..5]
 #+end_src
 
+
 *** #2 Find the last but one element of a list.
 
 #+begin_src haskell
@@ -74,7 +77,14 @@ elementAt (x:xs) i = if i == 1 then x else elementAt xs (i - 1)
 myLength [] = 0
 myLength xs = foldl (\acc _ -> acc + 1) 0 xs
 -- or
-myLength [] = 0
-myLength (_:xs) = 1 + myLength xs
+myLength' [] = 0
+myLength' [x] = 1
+myLength' (_:xs) = 1 + myLength xs
+
+myLength [1..5]
+myLength' [1..5]
 #+end_src
 
+#+RESULTS:
+: 5
+