perform-combination ( word combination -- )

Vocabulary

generic

Inputs

word	an object
combination	an object

Outputs

None

Definition

IN: generic

GENERIC: perform-combination ( word combination -- )

Methods

USING: generic generic.math generic.math.private kernel
namespaces words ;

M: math-combination perform-combination
    drop dup generic-word [
        dup
        [ over ] [
            dup math-class?
            [ [ dup ] [ math-method ] 2with math-dispatch-step ]
            [ drop object-method ] if
        ] with math-dispatch-step fixnum-optimization define
    ] with-variable ;


USING: generic generic.single kernel namespaces words ;

M: single-combination perform-combination
    [
        H{ } clone predicate-engines set dup generic-word set
        dup build-decision-tree
        [ "decision-tree" set-word-prop ]
        [ mega-cache-quot define ] [ define-inline-cache-quot ]
        2tri
    ] with-combination ;