# Haskell Filter Implementation

myFilter :: (a -> Bool) -> [a] -> [a]
myFilter fn [] = []
myFilter fn (x:xs)
  | fn x      = x : myFilter fn xs
  | otherwise = myFilter fn xs

main = do
  putStrLn "Filter implementation"
  
  let numbers = [1, 2, 3, 4, 5]
  
  print $ myFilter odd numbers
  print $ myFilter (\x -> mod x 2 == 1) numbers