From 14f80772cd91555d4b3862e57460b832e88e5b22 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 23 Apr 2019 21:42:49 +0200
Subject: [perl] tabs -> spaces

---
 perl/p3.pl | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'perl/p3.pl')

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