From 6be991fc143b51a6f51a2458000afcaf577f6ac0 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Fri, 26 Apr 2019 00:13:43 +0200
Subject: [perl] p6

---
 perl/p6.pl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 perl/p6.pl

(limited to 'perl/p6.pl')

diff --git a/perl/p6.pl b/perl/p6.pl
new file mode 100755
index 0000000..74ebbef
--- /dev/null
+++ b/perl/p6.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use List::Util qw(reduce);
+
+my ($sum_of_squares, $sum);
+
+# Functional
+sub iter {
+    my ($sum_of_squares, $sum) = @{+shift};
+    my $n = shift;
+    $sum_of_squares += $n**2;
+    $sum += $n;
+    return [$sum_of_squares, $sum];
+}
+
+($sum_of_squares, $sum) = @{+reduce { iter($a, $b) } [0, 0], (1..100)};
+print $sum_of_squares - ($sum**2), "\n";
+
+$sum_of_squares = 0;
+$sum = 0;
+# imperative
+for my $n (1..100) {
+    $sum_of_squares += $n**2;
+    $sum += $n;
+}
+print $sum_of_squares - ($sum**2), "\n";
-- 
cgit v1.2.3