Skip to content

Instantly share code, notes, and snippets.

@joelmccracken

joelmccracken/pokemon.prolog

Last active August 29, 2015 14:03
Show Gist options
  • Save joelmccracken/f657d2ad4b6c2ca6bc0e to your computer and use it in GitHub Desktop.
Save joelmccracken/f657d2ad4b6c2ca6bc0e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
team([]).
team([Pokemon|Team]) :- pokemon(Pokemon), \+ member(Pokemon, Team), team(Team).
Raw
pokemon.prolog
anyTeam([]).
anyTeam([Pokemon|Team]) :- pokemon(Pokemon), anyTeam(Team), length([Pokemon|Team], Len), Len =< 6.
pokemon(turtwig).
pokemon(chimchar).
pokemon(piplup).
pokemon(starly).
pokemon(bidoof).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment