fannkuch-step ( counter max-flips perm -- counter max-flips )

Vocabulary

benchmark.fannkuch

Inputs

counter	an object
max-flips	an object
perm	an object

Outputs

counter	an object
max-flips	an object

Definition

USING: kernel math math.order ;

IN: benchmark.fannkuch

: fannkuch-step
    ( counter max-flips perm -- counter max-flips )
    pick 30 <
    [ [ 1 + ] [ ] [ dup write-permutation ] tri* ] when
    count-flips max ; inline