examples/euler/prob06.pl

   1 #!/usr/bin/env pugs
   2
   3 # vim: filetype=perl6
   4
   5 =begin Problem
   6 The sum of the squares of the first ten natural numbers is,
   7 1² + 2² + ... + 10² = 385
   8
   9 The square of the sum of the first ten natural numbers is,
  10 (1 + 2 + ... + 10)² = 55² = 3025
  11
  12 Hence the difference between the sum of the squares of the first ten
  13 natural numbers and the square of the sum is 3025-385 = 2640.
  14
  15 Find the difference between the sum of the squares of the first one
  16 hundred natural numbers and the square of the sum.
  17 =end Problem
  18
  19 use v6;
  20 use Benchmark <timeit>;
  21
  22 sub main {
  23     say ([+] 1..100) ** 2 - [+] map { $_ **2 }, 1..100;
  24 }
  25
  26 my @t = timeit(1, &main);
  27 say "execution time: @t[0]";