Anonymous user
Playing cards: Difference between revisions
Added a Red answer
(Added solution for Action!) |
(Added a Red answer) |
||
Line 6,050:
Deck, re-shuffled: K♦ 4♣ J♠ 2♥ J♥ K♣ 6♣ 5♠ 3♥ 6♦ 5♦ 4♠ J♣ 4♦ 6♥ K♥ 7♥ 7♦ 2♦ 4♥ 6♠ 7♣ 9♦ 3♣ 3♠ 2♣ 2♠ 8♦ 5♣ 9♠ 5♥ J♦ 9♥ Q♦ Q♣ Q♥ Q♠ 8♥ 8♠ K♠ 9♣ 8♣ 7♠</pre>
=={{header|Red}}==
<lang Rebol>
Red [Title: "Playing Cards"]
pip: ["a" 2 3 4 5 6 7 8 9 10 "j" "q" "k"]
suit: ["♣" "♦" "♥" "♠"]
make-deck: function [] [
new-deck: make block! 52
foreach s suit [foreach p pip [append/only new-deck reduce [p s]]]
return new-deck
]
shuffle: function [deck [block!]] [deck: random deck]
deal: function [deck [block!]] [card: take deck return card]
contents: function [deck [block!]] [
line: 0
repeat i length? deck [
prin [trim/all form deck/:i " "]
if (to-integer i / 13) > line [line: line + 1 print ""]
]]
deck: shuffle make-deck
print "40 cards from a deck:"
loop 5 [ print ""
loop 8 [
prin prin [trim/all form take deck " "]
]]
print "^/" prin "remaining: "
contents deck
</lang>
{{out}}
<pre>
40 cards from a deck:
a♣ 3♠ 6♦ 9♦ 8♦ q♣ a♥ 8♣
10♥ 3♥ a♦ k♦ 6♣ 9♣ k♥ 4♥
j♠ j♣ 5♦ q♦ 9♠ 2♥ 10♦ k♣
4♦ k♠ j♥ 5♠ q♠ 8♠ 2♣ 7♥
3♣ 2♦ 5♥ 7♦ 6♠ 6♥ q♥ 9♥
remaining: 3♦ 10♠ a♠ 7♠ 8♥ 4♣ j♦ 5♣ 2♠ 7♣ 4♠ 10♣
</pre>
=={{header|REXX}}==
===version 1===
| |||