RosettaCodeData/Task/Anonymous-recursion/REBOL/anonymous-recursion.rebol

2 lines
77 B
Plaintext

fib: func [n /f][ do f: func [m] [ either m < 2 [m][(f m - 1) + f m - 2]] n]