parse-glossary ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: assocs kernel math math.parser sequences sorting.human
splitting ;

IN: metar.private

: parse-glossary ( str -- str' )
    "/" split [
        find-numbers [
            dup number?
            [ number>string ] [ glossary ?at drop ] if
        ] map join-words
    ] map "/" join ;