Playing cards: Difference between revisions
m
J: eliminate some complexities
m (Better use 'rand' instead of 'seed') |
m (J: eliminate some complexities) |
||
Line 664:
Ranks=: > ;:'Ace Two Three Four Five Six Seven Eight Nine Ten Jack Queen King'
Suits=: > ;:'Spades Hearts Diamonds Clubs'
DeckPrototype=:
NB. Class methods
Line 673:
destroy=: codestroy
sayCards=: (
shuffle=: monad define
1: TheDeck=:
)
Line 688:
CardsOffTop=. ToBeDealt {. TheDeck
TheDeck =: ToBeDealt }. TheDeck
(
)
|