Changeset 14633
- Timestamp:
- 11/05/06 17:01:59 (2 years ago)
- svk:copy_cache_prev:
- 41990
- Files:
-
- 1 modified
-
examples/algorithms/fibonacci_tail_call.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
examples/algorithms/fibonacci_tail_call.pl
r14632 r14633 4 4 say fib($n); 5 5 6 sub fib (UInt $n, Int $curr = 0,Int $next = 1) {6 sub fib (UInt $n, UInt $curr = 0, UInt $next = 1) { 7 7 return $curr unless $n; 8 8 return fib($n-1, $next, $curr + $next);
