closure-limit-as ( vertex quot: ( vertex -- edges ) n exemplar -- set )

Vocabulary

combinators.extras

Inputs

vertex	an object
quot	a quotation with stack effect ( vertex -- edges )
n	an object
exemplar	an object

Outputs

set

an object

Definition

USING: combinators.extras.private graphs.private kernel ;

IN: combinators.extras

: closure-limit-as
    ( vertex quot: ( vertex -- edges ) n exemplar -- set )
    [ 0 ] 2dip new-empty-set-like [ -roll (closure-limit) ] keep
    ; inline