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

benchmark.beust2: use iota instead of integer sequences

db4
Slava Pestov 2009-08-01 18:56:35 -05:00
parent 76368cae9b
commit ee82d5a19f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/beust2/beust2.factor
View File

@ -6,7 +6,7 @@ IN: benchmark.beust2
! http://crazybob.org/BeustSequence.java.html ! http://crazybob.org/BeustSequence.java.html
:: (count-numbers) ( remaining first value used max listener: ( -- ) -- ? ) :: (count-numbers) ( remaining first value used max listener: ( -- ) -- ? )
10 first - [| i | 10 first - iota [| i |
[let* | digit [ i first + ] [let* | digit [ i first + ]
mask [ digit 2^ ] mask [ digit 2^ ]
value' [ i value + ] | value' [ i value + ] |
@ -29,7 +29,7 @@ IN: benchmark.beust2
] any? ; inline recursive ] any? ; inline recursive
:: count-numbers ( max listener -- ) :: count-numbers ( max listener -- )
10 [ 1+ 1 1 0 max listener (count-numbers) ] any? drop ; 10 iota [ 1+ 1 1 0 max listener (count-numbers) ] any? drop ;
inline inline
:: beust ( -- ) :: beust ( -- )