benchmark.json: adding a json benchmark.

db4
John Benediktsson 2012-07-11 18:43:22 -07:00
parent a642f39a9a
commit 3928e5cb26
1 changed files with 11 additions and 0 deletions

View File

@ -0,0 +1,11 @@
! Copyright (C) 2012 John Benediktsson
! See http://factorcode.org/license.txt for BSD license.
USING: assocs json.reader json.writer kernel math math.parser
sequences ;
IN: benchmark.json
: json-benchmark ( -- )
200 iota [ [ number>string ] keep ] H{ } map>assoc
1,000 [ >json json> ] times drop ;
MAIN: json-benchmark