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

Annotation of /stack/fib.st

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (hide annotations)
Sun Mar 10 08:30:43 2002 UTC (22 years, 2 months ago) by masse
Branch: MAIN
Changes since 1.1: +1 -1 lines 
stack.c (new_val): Set gc_garb flag.
(gc_mark): Removed check if val is NULL.
(gc_init): Various optimizations.
fib.st: Changed to calculate "15 fib;".
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.2 15 fib;
10 teddy 1.1 print;
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26