Rosetta Code

Playing cards: Difference between revisions

Page Discussion

Playing cards (view source)

Revision as of 13:33, 9 May 2008

65 bytes removed ,  16 years ago
→‎{{header|J}}: Removed worthless comment.
(Forth)
(→‎{{header|J}}: Removed worthless comment.)
Line 416:
create=: 3 : 0
DeckPrototype=: |.|:(13|i.52),:<.13%~i.52
CVNN0=: > ;:'Ace Two Three Four Five Six Seven Eight Nine Ten Jack Queen King'
CSNN1=: > ;:'Spades Hearts Diamonds Clubs'
sayCards=: ((CVNN0{~{.),' of ',(CSNN1{~{:))"1▼
NB. CVN means card value names, CSN means card suit names.
▲ sayCards=: ((CVN{~{.),' of ',(CSN{~{:))"1
1 NB. Return 1 to indicate normal completion.
)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/71055"