Select Code to Download

 count     wall-time cpu-time line#
 22169434  157.7315  326.3050    26:                    
    @q[ 0 .. $k-1 ] = reverse @q[ 0 .. $k-1 ];

  4500244   18.0823   53.2090    39:
        @copy[ $index - 1, $index ] = @copy[ $index, $index - 1 ]
...
                push @max_sequence, join '', @copy, "\n"
  3265920   12.2326   37.4380    23:
                my @q = @copy;

 22169434   96.3426  273.7840    28:
                    substr( $q, 0, $k ) = reverse substr( $q, 0, $k );
...
                my $q = $copy;
  3265920    9.1315   34.8530    34:
                push @max_sequence, $copy