lowest-missing-number ( string-set -- min )

Vocabulary

escape-strings

Inputs

string-set

an object

Outputs

min

an object

Definition

USING: assocs kernel math math.functions math.parser
math.statistics ranges sequences sets sorting ;

IN: escape-strings

: lowest-missing-number ( string-set -- min )
    members dup [ length ] histogram-by dup keys length [0..b]
    [ [ of ] keep over [ 10^ < ] [ nip ] if ] with find nip
    [ [ [ length ] ] dip [ = ] curry compose filter sort ] keep 
    [
        [ drop "" ] [
            10^ <iota> [
                [ swap ?nth dup [ string>number ] when ] keep =
                not
            ] with find nip number>string
        ] if-zero
    ] keep 48 pad-head ;