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

Fix compile error

db4
Slava Pestov 2008-11-30 09:11:31 -06:00
parent b4e47eb1e1
commit 6b0a477d3d
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

@ -22,7 +22,7 @@ IN: benchmark.fannkuch
pick 30 < [ [ 1+ ] [ ] [ dup write-permutation ] tri* ] when pick 30 < [ [ 1+ ] [ ] [ dup write-permutation ] tri* ] when
count-flips max ; inline count-flips max ; inline
: fannkuch ( n -- flip# ) : fannkuch ( n -- )
[ [
[ 0 0 ] dip [ 1+ ] B{ } map-as [ 0 0 ] dip [ 1+ ] B{ } map-as
[ fannkuch-step ] each-permutation nip [ fannkuch-step ] each-permutation nip