diff options
-rwxr-xr-x | 028.pl | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -0,0 +1,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"; |