find-by-cccc ( cccc -- station )


Vocabulary
metar

Inputs
ccccan object


Outputs
stationan object


Definition
USING: accessors kernel sequences ;

IN: metar

: find-by-cccc ( cccc -- station )
all-stations swap '[ cccc>> _ = ] find nip ;