2017/04.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 use List::Util qw(min max);
   7
   8 my $res = 0;
   9 while (<>) {
  10         my @a = split /\s+/;
  11         for my $i (0 .. $#a) {
  12         for my $j (0 .. $#a) {
  13                 next if $i == $j;
  14                 if (int ($a[$i]/$a[$j])*$a[$j] == $a[$i]) {
  15                         $res += $a[$i]/$a[$j];
  16                 }
  17         } }
  18 }
  19
  20 say $res;
  21