extra example/fib.p2 for the current p2 syntax and library limitations

perl11 · Sep 15, 2013 · 535fa8f · 535fa8f
1 parent e2aff1b
commit 535fa8f
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 8 deletions.
diff --git a/example/fib.p2 b/example/fib.p2
@@ -0,0 +1,9 @@
+sub fib($n) {
+  if ( $n < 2 ) { $n } else { fib($n-1) + fib($n-1) }
+}
+my $n = number $ARGV[0];
+if (!$n) { $n = 40 }
+print "fib(";
+print $n;
+print ")= ";
+print fib($n);
diff --git a/example/fib.pl b/example/fib.pl
@@ -1,9 +1,6 @@
-sub fib($n) {
-  if ( $n < 2 ) { $n } else { $x=$n-1; fib($x) + fib($x-1) }
+sub fib {
+  my $n = shift;
+  ( $n < 2 ) ? $n : fib( $n - 1 ) + fib( $n - 2 );
 }
-$n = number $ARGV[0];
-if (!$n) { $n = 40 }
-print "fib("
-print $n
-print ")= "
-say fib($n)
+$n = $ARGV[0] || 40;
+print("fib($N) = ", fib($N), "\n");