Entries from 2013-12-16 to 1 day
{-# LANGUAGE NPlusKPatterns #-} import Data.Char pow :: Int -> Int -> Int pow a 0 = 1 pow a (n + 1) = pow a n * a myLength :: [a] -> Int myLength [] = 0 myLength (x:xs) = 1 + myLength xs myDrop :: Int -> [a] -> [a] myDrop 0 xs = xs myDrop …