Rosetta Code

Playing cards: Difference between revisions

Page Discussion

Playing cards (view source)

Revision as of 23:15, 29 November 2009

18 bytes added ,  14 years ago
→‎{{header|J}}: Retain arrays of suits and ranks in class
m (→‎{{header|J}}: Add error message)
(→‎{{header|J}}: Retain arrays of suits and ranks in class)
Line 1,090:
 
NB. Class objects
n0Ranks=.: > ;:'Ace Two Three Four Five Six Seven Eight Nine Ten Jack Queen King'
n1Suits=.: > ;:'Spades Hearts Diamonds Clubs'
DeckPrototype=: |. ,/(i.#n0Ranks),."1 0 i.#n1Suits
 
NB. Class methods
Line 1,101:
destroy=: codestroy
 
sayCards=: ((n0Ranks{~{.),' of ',(n1Suits{~{:))"1
 
shuffle=: monad define
Tikkanz
892

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/71119"