Problem 6
100までの自然数に関して 2乗の和と和の2乗の差を求めろ。難しくはないですね。
#!/usr/bin/perl use strict; use warnings; my ($sum_of_square, $square_of_sum) = p6(100); # 25164150 print "difference is ", ($square_of_sum - $sum_of_square), "\n"; sub p6 { my ($limit) = @_; my ($sum_of_square, $square_of_sum) = (0, 0); for my $i (1..$limit){ $sum_of_square += $i ** 2; $square_of_sum += $i; } return ($sum_of_square, $square_of_sum ** 2); }