steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.fannkuch: use iota

db4
Slava Pestov 2009-11-13 03:52:20 -06:00
parent 86da8ebed9
commit c4cd6e0787
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/fannkuch/fannkuch.factor
View File

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