fix-visibility ( seq -- seq' )

Vocabulary

metar.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: arrays kernel math regexp sequences ;

IN: metar.private

: fix-visibility ( seq -- seq' )
    dup [ R/ \d+(\/\d+)?SM/ matches? ] find drop [
        dup 1 - pick ?nth [ R/ \d+/ matches? ] [ f ] if* [
            cut [ unclip-last ] [ unclip swap ] bi*
            [ " " glue 1array ] [ 3append ] bi*
        ] [ drop ] if
    ] when* ;