test.pl


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

# Perl

sub gcd {
    if ($_[1] > 0) { return gcd($_[1], $_[0] % $_[1]); }
    else { return $_[0]; }
}

print("test\n");

$N = 1000;
@A = (0..$N-1);

$ans = 0;
for my $i (@A) {
    for my $j (@A) {
        $ans += gcd($i, $j);
    }
}
print($ans);