Playing cards: Difference between revisions

Content added Content deleted

Inline

@@ Line 730: / Line 730: @@
 NB. Class objects
-Ranks=: > ;:'Ace Two Three Four Five Six Seven Eight Nine Ten Jack Queen King'
+Ranks=: _2 ]\ 7 u:' A 2 3 4 5 6 7 8 910 J Q K'
-Suits=: > ;:'Spades Hearts Diamonds Clubs'
+Suits=: 7 u:'♦♣♥♠'
 DeckPrototype=: (] #: i.@:*/)Ranks ,&# Suits
@@ Line 741: / Line 741: @@
 destroy=: codestroy
-sayCards=: ({&Ranks@{., ' of ', {&Suits@{:)"1
+sayCards=: ({&Ranks@{. , {&Suits@{:)"1
 shuffle=: monad define
@@ Line 775: / Line 775: @@
    sayCards 2 dealCards__pc 5   NB. deal two hands of five cards
+♥
-Nine  of Hearts
+♠
-Three of Clubs
+♥
-Seven of Clubs
+ J♠
-Ten   of Hearts
+♥
-Three of Diamonds
+♣
-Seven of Diamonds
+♣
-Nine  of Spades
+♠
-King  of Diamonds
+♠
-Queen of Hearts
+♠
-Six   of Clubs
    $TheDeck__pc                 NB. deck size has been reduced by the ten cards dealt
 2