cities-named-in ( name state -- cities )

Vocabulary

usa-cities

Inputs

name	an object
state	an object

Outputs

cities

an object

Definition

USING: accessors kernel sequences ;

IN: usa-cities

MEMO: cities-named-in ( name state -- cities )
    cities [ [ name>> = ] [ state>> = ] bi-curry bi* and ] 2with
    filter ;