random-finite-float ( -- x )

Vocabulary

benchmark.parse-float

Inputs

None

Outputs

x

an object

Definition

USING: kernel math random ;

IN: benchmark.parse-float

: random-finite-float ( -- x )
    64 random-bits bits>double dup fp-special?
    [ drop random-finite-float ] when ;