Mind boggling card trick: Difference between revisions
Content deleted Content added
→{{header|Haskell}}: Swapped to a more direct (recursive) formulation of threeStacks |
m →{{header|zkl}}: tweak comment |
||
| Line 637: | Line 637: | ||
=={{header|zkl}}== |
=={{header|zkl}}== |
||
<lang zkl>cards:=[1..52].pump(List,"isEven","toInt").shuffle(); // red==1 |
<lang zkl>cards:=[1..52].pump(List,"isEven","toInt").shuffle(); // red==1 |
||
stacks:=T(List(),List()); // black stack |
stacks:=T(List(),List()); // black stack [0], red stack [1] |
||
blkStk,redStk := stacks; |
blkStk,redStk := stacks; |
||
foreach card in (cards){ stacks[card].append(__cardWalker.next()) } |
foreach card in (cards){ stacks[card].append(__cardWalker.next()) } |
||