Not sure
This commit is contained in:
parent
5af66cc89d
commit
1c60de9818
14
Haskell.org
14
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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user