Changeset 17655 for examples

Timestamp:

09/04/07 13:54:17 (16 months ago)

Author:

blwood

Message:

main function

Files:

• examples/euler/prob06.pl (modified) (1 diff)

examples/euler/prob06.pl

@@ -19 +19 @@
 
 sub main {
-    my $sum_of_squares = sum(map { $_ * $_ }, 1..100);
-    my $sum = sum(1..100);
-    my $square_of_sums = $sum * $sum;
-
-    say $square_of_sums - $sum_of_squares;
+    say ([+] 1..100) ** 2 - [+] map { $_ **2 }, 1..100;
 }