% FILE: human_readable.pl % LINE: Creates a human readable version of all sets of cards % DATE: March 25, 2021 human_readable([], []). % clubs human_readable([card(Face, Suit, _)|RestCards], ["AC"|RestHuman]) :- Face = ace, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["2C"|RestHuman]) :- Face = two, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["3C"|RestHuman]) :- Face = three, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["4C"|RestHuman]) :- Face = four, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["5C"|RestHuman]) :- Face = five, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["6C"|RestHuman]) :- Face = six, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["7C"|RestHuman]) :- Face = seven, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["8C"|RestHuman]) :- Face = eight, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["9C"|RestHuman]) :- Face = nine, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["10C"|RestHuman]) :- Face = ten, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["JC"|RestHuman]) :- Face = jack, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["QC"|RestHuman]) :- Face = queen, Suit = clubs, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["KC"|RestHuman]) :- Face = king, Suit = clubs, human_readable(RestCards, RestHuman). %diamonds human_readable([card(Face, Suit, _)|RestCards], ["AD"|RestHuman]) :- Face = ace, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["2D"|RestHuman]) :- Face = two, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["3D"|RestHuman]) :- Face = three, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["4D"|RestHuman]) :- Face = four, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["5D"|RestHuman]) :- Face = five, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["6D"|RestHuman]) :- Face = six, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["7D"|RestHuman]) :- Face = seven, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["8D"|RestHuman]) :- Face = eight, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["9D"|RestHuman]) :- Face = nine, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["10D"|RestHuman]) :- Face = ten, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["JD"|RestHuman]) :- Face = jack, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["QD"|RestHuman]) :- Face = queen, Suit = diamonds, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["KD"|RestHuman]) :- Face = king, Suit = diamonds, human_readable(RestCards, RestHuman). % Spades human_readable([card(Face, Suit, _)|RestCards], ["AS"|RestHuman]) :- Face = ace, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["2S"|RestHuman]) :- Face = two, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["3S"|RestHuman]) :- Face = three, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["4S"|RestHuman]) :- Face = four, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["5S"|RestHuman]) :- Face = five, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["6S"|RestHuman]) :- Face = six, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["7S"|RestHuman]) :- Face = seven, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["8S"|RestHuman]) :- Face = eight, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["9S"|RestHuman]) :- Face = nine, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["10S"|RestHuman]) :- Face = ten, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["JS"|RestHuman]) :- Face = jack, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["QS"|RestHuman]) :- Face = queen, Suit = spades, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["KS"|RestHuman]) :- Face = king, Suit = spades, human_readable(RestCards, RestHuman). % hearts human_readable([card(Face, Suit, _)|RestCards], ["AH"|RestHuman]) :- Face = ace, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["2H"|RestHuman]) :- Face = two, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["3H"|RestHuman]) :- Face = three, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["4H"|RestHuman]) :- Face = four, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["5H"|RestHuman]) :- Face = five, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["6H"|RestHuman]) :- Face = six, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["7H"|RestHuman]) :- Face = seven, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["8H"|RestHuman]) :- Face = eight, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["9H"|RestHuman]) :- Face = nine, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["10H"|RestHuman]) :- Face = ten, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["JH"|RestHuman]) :- Face = jack, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["QH"|RestHuman]) :- Face = queen, Suit = hearts, human_readable(RestCards, RestHuman). human_readable([card(Face, Suit, _)|RestCards], ["KH"|RestHuman]) :- Face = king, Suit = hearts, human_readable(RestCards, RestHuman). human_readable_melds([], []). human_readable_melds([FirstMeld|RestMelds], [NewFirstMeld|NewRestMelds]) :- human_readable(FirstMeld, NewFirstMeld), human_readable_melds(RestMelds, NewRestMelds).