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