yelouafi · July 17, 2015 01:53
diff --git a/stream-filter.hs b/stream-filter.hs
 filter :: (a -> Bool) -> [a] -> [a]
 filter _pred []    = []
 filter pred (x:xs)
  | pred x         = x : filter pred xs
  | otherwise      = filter pred xs
	filter :: (a -> Bool) -> [a] -> [a]
	filter _pred [] = []
	filter pred (x:xs)
	\| pred x = x : filter pred xs
	\| otherwise = filter pred xs