diff options
Diffstat (limited to 'test/fib.fr')
| -rw-r--r-- | test/fib.fr | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/fib.fr b/test/fib.fr new file mode 100644 index 000000000000..24780a73b264 --- /dev/null +++ b/test/fib.fr @@ -0,0 +1,12 @@ +: fib ( n1 -- n2 )
+ dup 1 > if
+ dup
+ 1- recurse
+ swap 2 - recurse
+ +
+ then ;
+
+
+35 value nfibs
+: fibtest nfibs fib . cr ;
+
|