/[cvs]/stack/fib.st
ViewVC logotype

Contents of /stack/fib.st

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Thu Aug 7 07:11:36 2003 UTC (20 years, 7 months ago) by masse
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +1 -1 lines
Makefile, fib.st, fib2.st, fac.st:
Changed to higher test values.

1 #!./stack
2 [ dup;
3 1 >;
4 [ dup; 1 -; fib; swap; 2 -; fib; +; ]
5 if;
6 ]
7 fib def;
8
9 25 fib;
10 print;

root@recompile.se
ViewVC Help
Powered by ViewVC 1.1.26