Changeset 14633

Timestamp:

11/05/06 17:01:59 (2 years ago)

Author:

lwall

svk:copy_cache_prev:

41990

Message:

make params consistently UInt

Files:

• examples/algorithms/fibonacci_tail_call.pl (modified) (1 diff)

examples/algorithms/fibonacci_tail_call.pl

@@ -4 +4 @@
 say fib($n);
 
-sub fib (UInt $n, Int $curr = 0, Int $next = 1) {
+sub fib (UInt $n, UInt $curr = 0, UInt $next = 1) {
     return $curr unless $n;
     return fib($n-1, $next, $curr + $next);