prune-decision-tree ( tree classes -- )

Vocabulary

tools.deploy.shaker

Inputs

tree	an object
classes	an object

Outputs

None

Definition

USING: arrays assocs classes.builtin grouping kernel sequences
sets ;

IN: tools.deploy.shaker

: prune-decision-tree ( tree classes -- )
    [ tuple class>type ] 2dip [ in? ] curry [ [ 2 group ] ] dip
    [ reject-keys concat ] curry compose [ map ] curry
    [ [ dup array? ] ] dip [ when ] curry compose [ map ] curry
    [ [ dup array? ] ] dip [ when ] curry compose change-nth ;