blob: 64d8deeeb13324fd298766de5621996780dc53d3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/perl
use strict;
use warnings;
my $n = 1;
my $total = $n;
for my $i (1..500) {
for my $j (1..4) {
$n += 2 * $i;
$total += $n;
}
}
print "$total\n";
|