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

Contents of /stack/fib2.st

Parent Directory Parent Directory | Revision Log Revision Log


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

1 #! ./stack
2
3 [
4 0 1
5 rot; 2 swap;
6 [
7 toss;
8 dup;
9 rot;
10 +;
11 ] for;
12 ] fib2 def;
13
14 45 fib2;
15 print;

root@recompile.se
ViewVC Help
Powered by ViewVC 1.1.26