JosephFerano/99-problems
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Not sure

Browse Source
This commit is contained in:
Joseph Ferano 2023-02-27 18:13:54 +07:00
parent 5af66cc89d
commit 1c60de9818
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Haskell.org
View File

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