[perl] p4, p5

1 files changed, 2 insertions, 4 deletions

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);