Skip to content

Instantly share code, notes, and snippets.

@swannodette
Forked from fogus/seqs.prolog
Created March 9, 2011 20:46
Show Gist options
  • Save swannodette/862975 to your computer and use it in GitHub Desktop.
Save swannodette/862975 to your computer and use it in GitHub Desktop.
(defn-e nth-o [n l o]
((1 (?a . ?d) a))
((_ (?a . ?d) _) (nth-o (dec n) d o)))
@swannodette
Copy link
Author

@fogus Pick away :) It's the pattern matching syntax that I plan on implementing in the near future to make it easier to map Prolog programs to their miniKanren cousins.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment