Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
PeterBurbery`Combinatorics`
FindAscentElements |
|
| | ||||
Examples
(2)
Basic Examples
(1)
Consider this random permutation.
In[1]:=
randomPermutation=RandomSample[Range[9]]
Out[1]=
{7,5,3,2,4,9,6,8,1}
Find the positions, that is the indices, of the ascents. An index i is an ascent index if <.
a
i
a
i+1
In[2]:=
 | FindAscentPositions |
Out[2]=
{{4},{5},{7}}
Find the ascents.
In[3]:=
| FindAscentElements |
Out[3]=
{{2,4},{4,9},{6,8}}
Write this with Inactive.
In[4]:=
Inactive[Less]@@@
[randomPermutation]
| FindAscentElements |
Out[4]=
{2<4,4<9,6<8}
Are all these statements true?
In[5]:=
AllTrue[Activate[#]&]Inactive[Less]@@@
[randomPermutation]
| FindAscentElements |
Out[5]=
True
Reverse with greater:
In[6]:=
Inactive[Greater]@@@Map[Reverse]
[randomPermutation]
| FindAscentElements |
Out[6]=
{4>2,9>4,8>6}
Are all these statements true?
In[7]:=
AllTrue[Activate[#]&]Inactive[Greater]@@@Map[Reverse]
[randomPermutation]
| FindAscentElements |
Out[7]=
True
Options
(1)
 |
|
""