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

benchmark.linked-assocs: adding a linked-assocs benchmark.

db4
John Benediktsson 2013-03-07 09:58:16 -08:00
parent c81bf00e46
commit 30cbce3f41
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
extra/benchmark/linked-assocs/linked-assocs.factor Normal file
View File

@ -0,0 +1,19 @@
USING: assocs combinators fry kernel linked-assocs math
sequences ;
IN: benchmark.linked-assocs
: (linked-assocs-benchmark) ( -- )
10,000 iota <linked-hash> {
[ '[ 0 swap _ set-at ] each ]
[ '[ _ at ] map-sum 0 assert= ]
[ '[ dup _ set-at ] each ]
[ '[ _ at ] map-sum 49995000 assert= ]
[ '[ _ delete-at ] each ]
[ nip assoc-size 0 assert= ]
} 2cleave ;
: linked-assocs-benchmark ( -- )
100 [ (linked-assocs-benchmark) ] times ;
MAIN: linked-assocs-benchmark