gistfile1.hs

filter :: (a -> Bool) -> [a] -> [a]
filter p = go
 where
   go [] = []
   go (x:xs)
       | p x       = x : go xs
       | otherwise = go xs