[ Perl 6 ] Haskell式的Fibonacci函數定義

There is more than one way to do it.

• 在Perl 6中，總有超過一種方法來達到目的。例如我們可以使用函數重載功能，寫出Haskell式的Fibonacci函數定義

-- Haskell ver.
fib 0 = 1
fib 1 = 1
fib n = fib (n-1) + fib (n-2)

# Perl 6 ver.
multi fib (0) { 1 }
multi fib (1) { 1 }
multi fib(Int $n where $n > 1) {
  (fib $n
 
-1) + (fib $n-2)
}

[ Perl 6 ] Haskell式的Fibonacci函數定義