split-recent-weather ( str -- seq )

Vocabulary

metar.private

Inputs

str

an object

Outputs

seq

an object

Definition

USING: ascii kernel sequences ;

IN: metar.private

: split-recent-weather ( str -- seq )
    [ dup empty? not ] [
        dup [ digit? ] find drop over [ digit? not ] find-from
        drop [ cut ] [ f ] if* swap
    ] produce nip ;