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>> ] ] dip [ = ] curry compose
find nip ;