count ( quot: ( -- ? ) -- n )

Vocabulary

benchmark.fannkuch

Inputs

quot	a quotation with stack effect ( -- ? )

Outputs

n

an object

Definition

USING: kernel math ;

IN: benchmark.fannkuch

: count ( quot: ( -- ? ) -- n )
    [ 0 ] dip [ dip swap [ [ 1 + ] when ] keep ] curry loop ;
    inline