2-APL UPC project.
getcard from hand commented becaose blocks 2apl
+4
-4
+4
-4
code/2apl_platform/briscola_chiamata/player.2apl
+4
-4
code/2apl_platform/briscola_chiamata/player.2apl
···
17
17
18
18
getcard([], 0, []).
19
19
getcard([X], 0, []).
20
-
getcard([ Card1, Card2 | Rest ], 0, [Card1, Card2]).
21
-
getcard([ Card1, Card2 | Rest ], Index, X) :- Y is Index - 1, getcard(Rest, Y, X).
20
+
getcard([ S, R | REST ], 0, [S, R]).
21
+
getcard([ S, R | REST ], I, X) :- Y is I - 1, getcard(REST, Y, X).
22
22
23
23
iscard([], []).
24
24
iscard([Card1, Card2 | REST ], [Card1, Card2]).
···
188
188
message(n, inform, _, _, yourturn(Y)) <- true |
189
189
{
190
190
print("My turn!");
191
-
B( getcard(H, 3, [S, R]) );
192
-
@cardtable(playCard(S, R))
191
+
//B( getcard(H, 3, X ) )
192
+
@cardtable(playCard(clubs, ace))
193
193
}
194
194
195
195