Mind boggling card trick: Difference between revisions
m
→{{header|Perl}}: Fix link: Perl 6 --> Raku
SqrtNegInf (talk | contribs) m (→{{header|Julia}}: Fix link: Perl 6 --> Raku) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix link: Perl 6 --> Raku) |
||
Line 830:
=={{header|Perl}}==
Trying several non-random deck orderings, in addition to a shuffled one. Predictably, the trick always works.
{{trans|
<lang perl>sub trick {
my(@deck) = @_;
| |||