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/p4.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl/p4.pl')

diff --git a/perl/p4.pl b/perl/p4.pl
index 9982fa5..3180cf7 100755
--- a/perl/p4.pl
+++ b/perl/p4.pl
@@ -10,9 +10,9 @@ use List::Util qw(max);
 # Imperative
 my $resp;
 for my $x (100 .. 999) {
-	for my $y ($x .. 999) {
-		my $cand = $x*$y;
-		$resp = max($resp, $cand) if $cand eq reverse($cand);
-	}
+    for my $y ($x .. 999) {
+        my $cand = $x*$y;
+        $resp = max($resp, $cand) if $cand eq reverse($cand);
+    }
 }
 print "$resp\n";
-- 
cgit v1.2.3