fannkuch ( n -- )

Vocabulary

benchmark.fannkuch

Inputs

n

an object

Outputs

None

Definition

USING: io kernel math math.combinatorics prettyprint sequences ;

IN: benchmark.fannkuch

: fannkuch ( n -- )
    [
        [ 0 0 ] dip <iota> [ 1 + ] B{ } map-as
        [ fannkuch-step ] each-permutation nip
    ] keep "Pfannkuchen(" write pprint ") = " write . ;