count-numbers ( max -- n )

Vocabulary

benchmark.beust1

Inputs

max

an object

Outputs

n

an object

Definition

USING: math.parser ranges sequences sets ;

IN: benchmark.beust1

: count-numbers ( max -- n )
    1 [a..b] [ number>string all-unique? ] count ; inline