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/p2.pl | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'perl/p2.pl')

diff --git a/perl/p2.pl b/perl/p2.pl
index 6a226e1..06c173a 100755
--- a/perl/p2.pl
+++ b/perl/p2.pl
@@ -5,26 +5,26 @@ use warnings;
 
 # Functional (naïve)
 sub iter1 {
-	my ($fibs, $acc) = @_;
-	my ($a, $b) = @$fibs;
-	if ($a > 4_000_000) {
-		return $acc;
-	} else {
-		iter1([$b, $a+$b], $a & 1 ? $acc : $acc + $a);
-	}
+    my ($fibs, $acc) = @_;
+    my ($a, $b) = @$fibs;
+    if ($a > 4_000_000) {
+        return $acc;
+    } else {
+        iter1([$b, $a+$b], $a & 1 ? $acc : $acc + $a);
+    }
 }
 print iter1([1, 2], 0), "\n";
 
 # Functional (tail recursive)
 sub iter2 {
-	my ($fibs, $acc) = @_;
-	my ($a, $b) = @$fibs;
-	if ($a > 4_000_000) {
-		return $acc;
-	} else {
-		@_ = ([$b, $a+$b], $a & 1 ? $acc : $acc + $a);
-		goto &iter2;
-	}
+    my ($fibs, $acc) = @_;
+    my ($a, $b) = @$fibs;
+    if ($a > 4_000_000) {
+        return $acc;
+    } else {
+        @_ = ([$b, $a+$b], $a & 1 ? $acc : $acc + $a);
+        goto &iter2;
+    }
 }
 print iter2([1, 2], 0), "\n";
 
@@ -32,8 +32,8 @@ print iter2([1, 2], 0), "\n";
 my ($a, $b) = (1, 2);
 my $resp = 0;
 do {
-	$resp += $a unless ($a & 1);
-	($a, $b) = ($b, $a+$b);
+    $resp += $a unless ($a & 1);
+    ($a, $b) = ($b, $a+$b);
 } while ($a <= 4_000_000);
 
 print "$resp\n"
-- 
cgit v1.2.3