RecursiveStartMinimumCount
FindStat's aix: the number of times, peeling the word, the minimum of what is left is its first entry.
✓ checked against that system · ! checked, with disagreements (hover a chip)FindStat
St000873via Permutation✓RecursiveStartMinimumCount(p)FindStat's aix: the number of times, peeling the word, the minimum of what is left is its first entry.Typed signatures
| Type | Package | Applies |
|---|---|---|
(permutation) -> number | combinatorics | always |
Details
- Defined over
Permutationas an expression in_x, evaluated by compute-engine — the definition IS the implementation. - Takes a
Permutationand nothing else — it reads values against their positions, or walks the orbits, so it needs the bijection. Applying it to a bare list is a type error, not a wrong answer. - Recursively: the minimum first counts one and the rest is the word without it; the minimum last ends the walk; otherwise the walk goes on with the entries before the minimum (St000873).
Definition
Epsil, as the implementation runs it.
on Permutation, over _x
0 if Length(_x) < 1 else Fold(Function(a if a[1] > a[2] else Apply(
(bottom: integer) => Apply(
(low: integer) => [a[1] + 1, a[2], a[3] + 1] if low == a[1] else [1, 0, a[3]] if low == a[2] else [a[1], low - 1, a[3]],
Max(Sum(Map(
Function(j if _x[j] == bottom else 0, j),
Range(a[1], a[2], 1),
)), 0),
),
Min(Map(
Function(_x[j], j),
Range(a[1], a[2], 1),
)),
), a, b), [
1,
Length(_x),
0,
], Range(1, Length(_x)))[3]Examples
Properties #
About
| Examples | 5 |
|---|---|
| Crosswalk | FindStat |