symbolic-reduce ( seq seq -- seq seq )

Vocabulary

units

Inputs

seq	an object
seq	an object

Outputs

seq	an object
seq	an object

Definition

USING: kernel sequences sets ;

IN: units

: symbolic-reduce ( seq seq -- seq seq )
    2dup intersect
    [ first 2remove-one symbolic-reduce ] unless-empty ;