RosettaCodeData/Task/Fibonacci-sequence/WDTE/fibonacci-sequence-1.wdte

2 lines
62 B
WDTE

let memo fib n => n { > 1 => + (fib (- n 1)) (fib (- n 2)) };