nisbus/gist:4503947

Last active December 10, 2015 22:38

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/nisbus/4503947.js"></script>
Save nisbus/4503947 to your computer and use it in GitHub Desktop.

Download ZIP

This results in a list of cards and one extra element (_Gxxxx)

Raw

gistfile1.prolog

	deal(0,_,_).
	deal(NumCards,Deck,Out) :-
	get_card(C,Deck,Rest),
	NewNum is NumCards-1,
	append(Out,[C],Result),
	deal(NewNum,Rest,Result),
	Out = [C\|Result],!.

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