find-zip-code ( code -- city )

Vocabulary

usa-cities

Inputs

code

an object

Outputs

city

an object

Definition

USING: accessors binary-search kernel math.order ;

IN: usa-cities

: find-zip-code ( code -- city )
    cities [ first-zip>> <=> ] with search nip ;