2013-11-25 13:43:42 -05:00
|
|
|
USING: kernel math math.constants msgpack sequences ;
|
|
|
|
|
IN: benchmark.msgpack
|
|
|
|
|
|
|
|
|
|
: pack-sum ( seq -- n )
|
2014-06-06 12:49:56 -04:00
|
|
|
[ >msgpack msgpack> ] map-sum ;
|
2013-11-25 13:43:42 -05:00
|
|
|
|
|
|
|
|
: pack-sum-lengths ( seq -- n )
|
2014-06-06 12:49:56 -04:00
|
|
|
[ >msgpack msgpack> length ] map-sum ;
|
2013-11-25 13:43:42 -05:00
|
|
|
|
|
|
|
|
: msgpack-benchmark ( -- )
|
|
|
|
|
500,000 iota pack-sum 124,999,750,000 assert=
|
|
|
|
|
500,000 "hello" <repetition> pack-sum-lengths 2,500,000 assert=
|
|
|
|
|
500,000 pi <repetition> pack-sum 0x1.7f7ec53a9f04ap20 assert= ;
|
|
|
|
|
|
|
|
|
|
MAIN: msgpack-benchmark
|
