findMinMax.pl

findMinMax.pl

#!/usr/bin/env perl                                                                                                                                                                
use strict;
use warnings;
use feature ":5.10";
use feature 'signatures';
no warnings "experimental::signatures";

use Algorithm::Combinatorics qw(permutations);

my @ints = @ARGV;

my ($min, $max) = findMinMax(\@ints);
say "min = $min";
say "max = $max";

sub findMinMax($ints) {
    my $min = "inf";
    my $max = "-inf";

    my $iter = permutations(\@ints);
    while (my $p = $iter->next) {
        my $x = join "", @$p;
        $min = $x if $x < $min;
        $max = $x if $x > $max;
    }

    return ($min, $max);
}