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

Annotation of /stack/fib.st

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.4 - (hide annotations)
Thu Aug 7 07:11:36 2003 UTC (20 years, 8 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 teddy 1.1 #!./stack
2     [ dup;
3     1 >;
4     [ dup; 1 -; fib; swap; 2 -; fib; +; ]
5     if;
6     ]
7     fib def;
8    
9 masse 1.4 25 fib;
10 teddy 1.1 print;
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26