Help for this page

Select Code to Download

Select or download this

use Algorithm::Loops qw( NextPermuteNum );

...
        $prev= $num;
    } while( NextPermuteNum(@digs) );
}

Select or download this

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/