Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeList/Filter.hs
module Prelude where filter :: (a -> Bool) -> [a] -> [a] filter p [] = [] filter p (x:xs) | p x = x: filter p xs | otherwise = filter p xs