From 6961d56205c8a62216d29f87640d6f25d386ace2 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Fri, 26 Apr 2019 21:21:12 +0200
Subject: [perl] Primes.pm

---
 perl/Primes.pm | 13 +++++++++++++
 perl/p6.pl     |  3 ++-
 2 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 perl/Primes.pm

(limited to 'perl')

diff --git a/perl/Primes.pm b/perl/Primes.pm
new file mode 100644
index 0000000..6843210
--- /dev/null
+++ b/perl/Primes.pm
@@ -0,0 +1,13 @@
+package Primes;
+
+my $last_prime = 2;
+my @primes = (2);
+
+sub sieve {
+	my $n = shift;
+	push @primes, $n;
+	my @copy = @primes;
+	return \@copy;
+}
+
+1;
diff --git a/perl/p6.pl b/perl/p6.pl
index 74ebbef..b93da35 100755
--- a/perl/p6.pl
+++ b/perl/p6.pl
@@ -19,9 +19,10 @@ sub iter {
 ($sum_of_squares, $sum) = @{+reduce { iter($a, $b) } [0, 0], (1..100)};
 print $sum_of_squares - ($sum**2), "\n";
 
+# Imperative
 $sum_of_squares = 0;
 $sum = 0;
-# imperative
+
 for my $n (1..100) {
     $sum_of_squares += $n**2;
     $sum += $n;
-- 
cgit v1.2.3