方法一: fib.pl:
1 2 3 4 5 6 7 8 9 |
sub fib(Int $n where * >= 0) { given $n { when 0 { 0 } when 1 { 1 } default { fib($n-2) + fib($n-1) } } } say fib(30); |
用例: [cray ..
方法一: fib.pl:
1 2 3 4 5 6 7 8 9 |
sub fib(Int $n where * >= 0) { given $n { when 0 { 0 } when 1 { 1 } default { fib($n-2) + fib($n-1) } } } say fib(30); |
用例: [cray ..
近期留言