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

Update benchmarks for >r/r> removal

db4
Slava Pestov 2008-12-17 19:28:07 -06:00
parent 49eeef4c35
commit 977f5da07d
5 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/binary-trees/binary-trees.factor
View File

@ -10,8 +10,8 @@ C: <tree-node> tree-node
dup 0 > [
1 -
[ drop ]
[ >r 2 * 1 - r> bottom-up-tree ]
[ >r 2 * r> bottom-up-tree ] 2tri
[ [ 2 * 1 - ] dip bottom-up-tree ]
[ [ 2 * ] dip bottom-up-tree ] 2tri
] [
drop f f
] if <tree-node> ; inline recursive

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

@ -29,7 +29,7 @@ IN: benchmark.knucleotide
: small-groups ( x n -- b )
swap
[ length swap - 1+ ] 2keep
[ >r over + r> subseq ] 2curry map ;
[ [ over + ] dip subseq ] 2curry map ;
: handle-table ( inputs n -- )
small-groups

4
extra/benchmark/nsieve-bits/nsieve-bits.factor
View File

@ -6,7 +6,7 @@ bit-arrays make io ;
2dup length >= [
3drop
] [
f 2over set-nth-unsafe >r over + r> clear-flags
f 2over set-nth-unsafe [ over + ] dip clear-flags
] if ; inline recursive
: (nsieve-bits) ( count i seq -- count )
@ -14,7 +14,7 @@ bit-arrays make io ;
2dup nth-unsafe [
over dup 2 * pick clear-flags
rot 1+ -rot ! increment count
] when >r 1+ r> (nsieve-bits)
] when [ 1+ ] dip (nsieve-bits)
] [
2drop
] if ; inline recursive

4
extra/benchmark/nsieve-bytes/nsieve-bytes.factor
View File

@ -6,7 +6,7 @@ byte-arrays make io ;
2dup length >= [
3drop
] [
0 2over set-nth-unsafe >r over + r> clear-flags
0 2over set-nth-unsafe [ over + ] dip clear-flags
] if ; inline recursive
: (nsieve) ( count i seq -- count )
@ -14,7 +14,7 @@ byte-arrays make io ;
2dup nth-unsafe 0 > [
over dup 2 * pick clear-flags
rot 1+ -rot ! increment count
] when >r 1+ r> (nsieve)
] when [ 1+ ] dip (nsieve)
] [
2drop
] if ; inline recursive

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

@ -6,7 +6,7 @@ arrays make io ;
2dup length >= [
3drop
] [
f 2over set-nth-unsafe >r over + r> clear-flags
f 2over set-nth-unsafe [ over + ] dip clear-flags
] if ; inline recursive
: (nsieve) ( count i seq -- count )
@ -14,7 +14,7 @@ arrays make io ;
2dup nth-unsafe [
over dup 2 * pick clear-flags
rot 1+ -rot ! increment count
] when >r 1+ r> (nsieve)
] when [ 1+ ] dip (nsieve)
] [
2drop
] if ; inline recursive