]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/recursive/recursive.factor
factor: put inline on same line as ; for experimentation
[factor.git] / extra / benchmark / recursive / recursive.factor
index f53a70a12774e400131ac4b565b0b6ceff3c6bab..e9a65205be01f3adff832ba1ceb0fa9c128c9be1 100644 (file)
@@ -2,8 +2,9 @@ USING: math kernel hints prettyprint io combinators ;
 IN: benchmark.recursive
 
 : fib ( m -- n )
-    dup 2 < [ drop 1 ] [ [ 1 - fib ] [ 2 - fib ] bi + ] if ;
-    inline recursive
+    dup 2 <
+    [ drop 1 ]
+    [ [ 1 - fib ] [ 2 - fib ] bi + ] if ; inline recursive
 
 : ack ( m n -- x )
     {