Skip to content

Instantly share code, notes, and snippets.

@bavardage

bavardage/Logic.hs

Created February 7, 2010 17:22
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save bavardage/297538 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save bavardage/297538 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Logic.hs
subFormulas :: PL -> [PL]
subFormulas = foldLogic
((:[]) . Boole)
((:[]) . Var)
(\p -> Not (head p) : p)
(\c p q -> Conn c (head p) (head q) : (p ++ q))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment