Skip to content

Instantly share code, notes, and snippets.

@jleeothon

jleeothon/substitute.pl

Last active August 29, 2015 14:05
Show Gist options
  • Save jleeothon/4b1ce8c494173dcb35bd to your computer and use it in GitHub Desktop.
Save jleeothon/4b1ce8c494173dcb35bd to your computer and use it in GitHub Desktop.
Download ZIP
Prolog: substitute
Raw
substitute.pl
substitute(_, _, [], []).
substitute(This, ForThis, [This | List], [ForThis | Result]) :- substitute(This, ForThis, List, Result).
substitute(This, ForThis, [Other | List], [Other | Result]) :- substitute(This, ForThis, List, Result).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment