/[cvs]/stack/fib.st

Contents of /stack/fib.st

Parent Directory | Revision Log

Revision 1.1 - (show 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	#!./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