Parent Directory | Revision Log
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 |