読者です 読者をやめる 読者になる 読者になる

Problem 6

euler perl


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);
}