Return to fib.mini CVS log | Up to [gforth] / gforth / vmgen-ex |
added vmgen-ex
1: func fib(n) 2: var r; 3: if n<2 then 4: r:=1; 5: else 6: r:=fib(n-1)+fib(n-2); 7: end if; 8: return r; 9: // the language syntax (return only at end) leads to inefficient code here 10: end func; 11: 12: func main() 13: return fib(34); 14: end func;