Skip to content

Instantly share code, notes, and snippets.

@jamesnvc

jamesnvc/gist:9676427

Created March 20, 2014 23: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 jamesnvc/9676427 to your computer and use it in GitHub Desktop.
Save jamesnvc/9676427 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(def rules
'[(has-values _ ?attr-vals)
[(empty? ?attr-vals)]]
[(has-values ?e ?attr-vals)
[(conj ?t ?h) ?attr-vals]
[(vector ?qf ?qv) ?h]
[?e ?qf ?qv]
(has-values ?e ?t)]])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment