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 ;

IN: tools.deploy.shaker

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