/[cvs]/stack/fib.st

Annotation of /stack/fib.st

Parent Directory | Revision Log

Revision 1.1 - (hide annotations)
Thu Mar 7 03:28:29 2002 UTC (22 years, 2 months ago) by teddy
Branch: MAIN

GPL stuff:
stack.c, stack.h, Makefile: Added notices
stack.c (copying, warranty): New functions.
stack.h (copying, warranty): - '' -

Other stuff:
Makefile (stack): New explicit rule to depend on "stack.h" too.
(mtrace): Depend on "stack", not "all".
(check): New target.
stack.c (main): Don't return error on EOF.
(beep, wait): New functions.
stack.h (beep, wait): - '' -

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

root@recompile.se	ViewVC Help
Powered by ViewVC 1.1.26