bench-permutations ( n -- )

Vocabulary

benchmark.combinatorics

Inputs

n

an object

Outputs

None

Definition

USING: combinators kernel math math.combinatorics sequences ;

IN: benchmark.combinatorics

: bench-permutations ( n -- )
    <iota> {
        [ all-permutations drop ]
        [ [ drop ] each-permutation ]
        [ [ first 2 = ] find-permutation drop ]
        [ 0 [ sum + ] reduce-permutations drop ]
    } cleave ;