parse-lightning ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: assocs grouping kernel sequences splitting ;

IN: metar.private

: parse-lightning ( str -- str' )
    "LTG" ?head drop 2 group [ lightning at ] map join-words ;