#!/usr/bin/env perl6
my $base = 2019;
my @numbers = split('',$base);
my @perm;
for @numbers.permutations -> @n { @perm.push( @n.join('') )}
for @perm.unique.sort -> $p {
next unless $p > $base;
say $p ;
exit;
}
For further actions, you may consider blocking this person and/or reporting abuse
We're a place where coders share, stay up-to-date and grow their careers.
Perl 6