13 lines
301 B
Factor
13 lines
301 B
Factor
USING: kernel literals math.functions math.parser random
|
|
sequences ;
|
|
IN: benchmark.parse-float
|
|
|
|
CONSTANT: test-floats $[ 100,000 random-units ]
|
|
|
|
: parse-float-benchmark ( -- )
|
|
test-floats [
|
|
[ number>string string>number ] [ 1e-10 ~ t assert= ] bi
|
|
] each ;
|
|
|
|
MAIN: parse-float-benchmark
|