benchmark.fannkuch: use iota

2009-11-13 03:52:20 -06:00 · 2009-11-13 03:52:20 -06:00 · 6032e4e4d6
parent eb165a5450
commit 6032e4e4d6
1 changed files with 1 additions and 1 deletions
--- a/extra/benchmark/fannkuch/fannkuch.factor
+++ b/extra/benchmark/fannkuch/fannkuch.factor
@ -24,7 +24,7 @@ IN: benchmark.fannkuch

 : fannkuch ( n -- )
    [
-        [ 0 0 ] dip [ 1 + ] B{ } map-as
+        [ 0 0 ] dip iota [ 1 + ] B{ } map-as
        [ fannkuch-step ] each-permutation nip
    ] keep
    "Pfannkuchen(" write pprint ") = " write . ;