Skip to content

Instantly share code, notes, and snippets.

@tomjack

tomjack/pred.clj Secret

Created March 29, 2010 02:42
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 tomjack/8d3f0b775d3e2f0b4042 to your computer and use it in GitHub Desktop.
Save tomjack/8d3f0b775d3e2f0b4042 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
pred.clj
(defn pnot [pred]
#(not (pred %)))
(defn por [pred-a pred-b]
#(or (pred-a %)
(pred-b %)))
(defn pand [pred-a pred-b]
#(and (pred-a %)
(pred-b %)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment