count-flips ( perm -- flip# )

Vocabulary

benchmark.fannkuch

Inputs

perm

an object

Outputs

flip#

an object

Definition

USING: kernel sequences ;

IN: benchmark.fannkuch

: count-flips ( perm -- flip# )
    [
        dup first dup 1 =
        [ 2drop f ] [ head-slice reverse! drop t ] if
    ] curry count ; inline