Playing cards: Difference between revisions
→{{header|J}}: use unicode symbols rather than text
(→{{header|Perl 6}}: Mark incorrect. Ace & 10 omitted from pack.) |
(→{{header|J}}: use unicode symbols rather than text) |
||
Line 730:
NB. Class objects
Ranks=:
Suits=:
DeckPrototype=: (] #: i.@:*/)Ranks ,&# Suits
Line 741:
destroy=: codestroy
sayCards=: ({&Ranks@{.
shuffle=: monad define
Line 775:
1
sayCards 2 dealCards__pc 5 NB. deal two hands of five cards
8♥
5♠
3♥
J♠
2♥
4♣
8♣
7♠
6♠
2♠
$TheDeck__pc NB. deck size has been reduced by the ten cards dealt
42 2
|