Mind boggling card trick: Difference between revisions

m
m (→‎{{header|Perl 6}}: A little less Italian)
Line 569:
prif(verbose, "Black card pile: $bpile")
# swap a the same random number of random
# cards between the red and black piles
amount = rand(1:min(length(rpile), length(bpile)))
prif(verbose, "Swapping a random number of cards: $amount will be swapped.")
4,105

edits