(*) Find the number of elements of a list.

myLength :: [a] -> Int myLength [] = 0 myLength (_:xs) = 1 + myLength xs

myLength :: [a] -> Int myLength = foldr (\x n -> n + 1) 0