Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 14 lines (12 sloc) 229 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Algorithm::Permute;
my $p = Algorithm::Permute->new( [ 0 .. 9 ] );
my @p;
while ( my @r = $p->next() ) {
push @p, join( '', @r );
}
@p = sort @p;
say $p[999_999];