Skip to content

Instantly share code, notes, and snippets.

@siddhartha-gadgil

siddhartha-gadgil/listfilter.agda

Created March 22, 2014 09:17
Show Gist options
  • Save siddhartha-gadgil/9703658 to your computer and use it in GitHub Desktop.
Save siddhartha-gadgil/9703658 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
listfilter.agda
_filter_ : {A : Set} → List A → (A → Bool) → List A
[] filter _ = []
(x :: xs) filter p = if (p x) then (x :: (xs filter p)) else (xs filter p)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment