Skip to content

Instantly share code, notes, and snippets.

@mem-memov

mem-memov/gist:ec9f94c0e475f9d03713cc6b81a85763

Created September 20, 2019 20:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mem-memov/ec9f94c0e475f9d03713cc6b81a85763 to your computer and use it in GitHub Desktop.
Save mem-memov/ec9f94c0e475f9d03713cc6b81a85763 to your computer and use it in GitHub Desktop.
Download ZIP
h fltr
Raw
gistfile1.txt
let fltr = f :: (a -> Bool) -> [a] -> [a] where f _ [] = []; f p (x:xs) = if (p x) then x:(f p xs) else f p xs in fltr (<5) [2,44,1,32]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment