方法一:

fib.pl:

sub fib(Int $n where * >= 0) {
  given $n {
    when 0 { 0 }
    when 1 { 1 }
    default { fib($n-2) + fib($n-1) }
  }
}

say fib(30);

用例:

perl6 fib.pl

# => 結果:
# 832040
#

方法二:

fib2.pl

my @fib = 0, 1, *+* ... *;
say "Fibonacci 數列第 31 個元素是 @fib[30]";

用例:

perl6 fib2.pl

# => 結果:
# 832040
#