99-haskell-problems/Problems 1-10/problem_1.hs

-- Simple recursive solution
myLast :: [a] -> a
myLast [] = error "Empty list"
myLast [s] = s
myLast (_ : tl) = myLast tl

-- Alternative Solution using fold
myLast' :: [a] -> a
myLast' = foldl1 (\_ x -> x)
new: Solved problem 1 2024-05-24 15:56:10 -05:00			`-- Simple recursive solution`
			`myLast :: [a] -> a`
			`myLast [] = error "Empty list"`
			`myLast [s] = s`
new: Solved the first 10 problems 2024-05-24 17:06:42 -05:00			`myLast (_ : tl) = myLast tl`
new: Solved problem 1 2024-05-24 15:56:10 -05:00
			`-- Alternative Solution using fold`
			`myLast' :: [a] -> a`
			`myLast' = foldl1 (\_ x -> x)`