(parse-recent-weather) ( str -- str' )

Vocabulary

metar.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: ascii assocs kernel math sequences ;

IN: metar.private

: (parse-recent-weather) ( str -- str' )
    dup [ digit? ] find drop 2 >
    [ 2 cut [ weather at " " append ] dip ] [ f swap ] if
    parse-began/ended "" append-as ;