#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11162510
use warnings;
use Time::HiRes qw( time );
use List::AllUtils qw( shuffle );

my @stock = shuffle split //, 'A23456789TJQK' x 4;
my $ninecardlist = join '', splice @stock, 0, 9;
my $start = time;
while( @stock > 1 )
  {
  print "$ninecardlist\n";
  my ($left, $right) = splice @stock, 0, 2;
  $ninecardlist =~ s/(.)(.*?)\1/
    print "play $left & $right over $1's\n";
    "$left$2$right"/e or last;
  }
@stock > 1 or print "$ninecardlist\n";
print  @stock < 2
    ? "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;

##</code><code>##

T7AJJQ342
play A & 9 over J's
T7AA9Q342
play 8 & T over A's
T78T9Q342
play T & 3 over T's
T7839Q342
play 8 & 5 over 3's
T7889Q542
play 5 & 6 over 8's
T7569Q542
play 6 & 7 over 5's
T7669Q742
play 9 & 8 over 7's
T9669Q842
play A & 6 over 9's
TA666Q842
play 4 & K over 6's
TA4K6Q842
play 3 & A over 4's
TA3K6Q8A2
play Q & J over A's
TQ3K6Q8J2
play 7 & 6 over Q's
T73K668J2
play T & 4 over 6's
T73KT48J2
play K & Q over T's
K73KQ48J2
play 7 & 3 over K's
7733Q48J2
play 2 & 4 over 7's
2433Q48J2
play 8 & 9 over 2's
8433Q48J9
play J & 2 over 8's
J433Q42J9
play 9 & K over J's
9433Q42K9
play 2 & K over 9's
2433Q42KK
play Q & 5 over 2's
Q433Q45KK
Succeeded in consuming the entire deck.
51 passes in 125 microseconds