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