weather-group? ( str -- ? )

Vocabulary

metar.private

Inputs

str

an object

Outputs

?

an object

Definition

USING: assocs grouping kernel regexp sequences splitting ;

IN: metar.private

: weather-group? ( str -- ? )
    dup "NSW" =
    [ drop t ] [
        dup re-weather matches? [
            [ "+-" member? ] trim-head "VC" ?head drop 2 group
            [ weather key? ] all?
        ] [ drop f ] if
    ] if ;