Okay, combining all these approaches minimalistically but without golfing we get something like:
my @numbers = sort { rand }, constant @goal = 1..9;
my $steps = 0;
until @numbers ~~ @goal {
say [EMAIL PROTECTED];
@numbers[ 0 ..^ prompt "Reverse how many? " ] .= reverse;
++$steps;
}
say "Done! That took you $steps steps.";
Larry
