Index finite lists of positive integers: Difference between revisions
Index finite lists of positive integers (view source)
Revision as of 23:07, 8 June 2021
, 3 years ago→{{header|Mathematica}} / {{header|Wolfram Language}}
No edit summary |
|||
Line 575:
Unrank[n_Integer]:=FromDigits/@SequenceSplit[IntegerDigits[n,16],{15}]
Rank[{0,1,2,3,10,100,987654321,0}]
Unrank[%]
First@*Unrank@*Rank@*List /@ Range[0, 20]</lang>
{{out}}
<pre>4886947482322057719812858634706703
{0, 1, 2, 3, 10, 100, 987654321, 0}
{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}</pre>
=={{header|Nim}}==
| |||