99-haskell-problems/Problems 01-10/problem_02.hs

myButLast :: [a] -> a
myButLast [] = error "List length less than 2"
myButLast [a, _] = a
myButLast (hd : tl) = myButLast tl