diff options
Diffstat (limited to 'perl/p2.pl')
-rwxr-xr-x | perl/p2.pl | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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); |