RosettaCodeData/Task/Fibonacci-sequence/Perl-6/fibonacci-sequence-5.pl6

5 lines
118 B
Raku

proto fib (Int $n --> Int) {*}
multi fib (0) { 0 }
multi fib (1) { 1 }
multi fib ($n) { fib($n - 1) + fib($n - 2) }