challenge-338/sgreen/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';
use experimental 'signatures';

sub main (@arrays) {
    my @arr1 = split /\D+/, $arrays[0];
    my @arr2 = split /\D+/, $arrays[1];

    my $max = 0;
    foreach my $a1 (@arr1) {
        foreach my $a2 (@arr2) {
            my $dist = abs( $a1 - $a2 );
            $max = $dist if $dist > $max;
        }
    }
    say $max;
}

main(@ARGV);