]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/fib6/fib6.factor
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...
[factor.git] / extra / benchmark / fib6 / fib6.factor
index f81b6a21a2f09a40b3cd6e6f197ad31afdcc1d7f..70ce97597467861d18a4ce93aace175e4ace965e 100755 (executable)
@@ -1,10 +1,10 @@
-IN: benchmark.fib6\r
 USING: math kernel alien ;\r
+IN: benchmark.fib6\r
 \r
 : fib ( x -- y )\r
     "int" { "int" } "cdecl" [\r
         dup 1 <= [ drop 1 ] [\r
-            1- dup fib swap 1- fib +\r
+            1 - dup fib swap 1- fib +\r
         ] if\r
     ] alien-callback\r
     "int" { "int" } "cdecl" alien-indirect ;\r