Playing cards: Difference between revisions

Content added Content deleted
mNo edit summary
mNo edit summary
Line 6,076: Line 6,076:
deck: shuffle make-deck
deck: shuffle make-deck
print "40 cards from a deck:"
print "40 cards from a deck:"
loop 5 [ print ""
loop 5 [ print "" loop 8 [prin [trim/all form take deck " "]]]
prin "^/^/remaining: "
loop 8 [
prin [trim/all form take deck " "]
]]
print "^/" prin "remaining: "
contents deck
contents deck
</lang>
</lang>