From 84ea53edf5431d382844da8fcaa47626c8e2b6b2 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 23 Apr 2019 20:35:15 +0200
Subject: [perl] p4, p5

---
 perl/p2.pl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'perl/p2.pl')

diff --git a/perl/p2.pl b/perl/p2.pl
index ec85ec1..6a226e1 100755
--- a/perl/p2.pl
+++ b/perl/p2.pl
@@ -13,8 +13,7 @@ sub iter1 {
 		iter1([$b, $a+$b], $a & 1 ? $acc : $acc + $a);
 	}
 }
-print iter1([1, 2], 0);
-print "\n";
+print iter1([1, 2], 0), "\n";
 
 # Functional (tail recursive)
 sub iter2 {
@@ -27,8 +26,7 @@ sub iter2 {
 		goto &iter2;
 	}
 }
-print iter2([1, 2], 0);
-print "\n";
+print iter2([1, 2], 0), "\n";
 
 # Imperative
 my ($a, $b) = (1, 2);
-- 
cgit v1.2.3