Return to fib.mini CVS log

Up to [gforth] / gforth / vmgen-ex

Annotation of gforth/vmgen-ex/fib.mini, revision 1.1

1.1     ! anton       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;