Y ( quot -- quot )


Vocabulary
rosetta-code.y-combinator

Inputs
quotan object


Outputs
quotan object


Definition
USING: kernel ;

IN: rosetta-code.y-combinator

: Y ( quot -- quot )
[ [ [ dup call call ] curry ] ] dip compose dup call ;
inline