n-falsify ( n -- quot )

Vocabulary

combinators.extras

Inputs

n

an object

Outputs

quot

an object

Definition

USING: generalizations kernel ;

IN: combinators.extras

MACRO:: n-falsify ( n -- quot )
    [ n ndup n n-and [ n ndrop n f n*obj ] unless ] ;