Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    ? "Succeeded in consuming the entire deck.\n"
    : "Failed to consume the entire deck.\n";
printf "%d passes in %d microseconds\n", 52 - @stock, (time - $start) 
+* 1e6;

Select or download this

T7AJJQ342
play A & 9 over J's
...
Q433Q45KK
Succeeded in consuming the entire deck.
51 passes in 125 microseconds