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

Annotation of /stack/fib2.st

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Thu Mar 14 14:42:28 2002 UTC (22 years, 8 months ago) by masse
Branch: MAIN
fib2.st: New, faster fib.

1 masse 1.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     20 fib2;
15     print;

root@recompile.se
ViewVC Help
Powered by ViewVC 1.1.26