From fa093824ff00a2cc6ebaaef4935c632b75b49a2e Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 23 Apr 2019 18:38:28 +0200
Subject: [perl] chmod + refactor

---
 perl/p1.pl       |  0
 perl/p2.pl       |  0
 perl/p3.pl       | 10 ++++------
 perl/template.pl |  0
 4 files changed, 4 insertions(+), 6 deletions(-)
 mode change 100644 => 100755 perl/p1.pl
 mode change 100644 => 100755 perl/p2.pl
 mode change 100644 => 100755 perl/p3.pl
 mode change 100644 => 100755 perl/template.pl

diff --git a/perl/p1.pl b/perl/p1.pl
old mode 100644
new mode 100755
diff --git a/perl/p2.pl b/perl/p2.pl
old mode 100644
new mode 100755
diff --git a/perl/p3.pl b/perl/p3.pl
old mode 100644
new mode 100755
index 3caebf2..77324e1
--- a/perl/p3.pl
+++ b/perl/p3.pl
@@ -14,16 +14,14 @@ my @primes;
 my $last_factor;
 
 for my $i (2 .. $n) {
-	if ($i > $n) {
-		last;
-	}
+	last if ($i > $n);
 	if (all { $i % $_ != 0 } @primes) {
-		push(@primes, $i);
-		if ($n % $i== 0) {
-			$n = $n / $i;
+		if ($n % $i == 0) {
+			$n /= $i;
 			$last_factor = $i;
 			redo;
 		}
+		push(@primes, $i);
 	}
 }
 print "$last_factor\n";
diff --git a/perl/template.pl b/perl/template.pl
old mode 100644
new mode 100755
-- 
cgit v1.2.3