parse-speed ( str units -- str'/f )

Vocabulary

metar.private

Inputs

str	an object
units	an object

Outputs

str'/f

an object

Definition

USING: formatting kernel math.parser ;

IN: metar.private

: parse-speed ( str units -- str'/f )
    [ string>number ] dip [
        dup "knots" =
        [ drop dup kt>mph "%s knots (%.1f mph)" sprintf ]
        [ "%s %s" sprintf ] if
    ] curry [ f ] if* ;