Index finite lists of positive integers: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 575: | Line 575: | ||
Unrank[n_Integer]:=FromDigits/@SequenceSplit[IntegerDigits[n,16],{15}] |
Unrank[n_Integer]:=FromDigits/@SequenceSplit[IntegerDigits[n,16],{15}] |
||
Rank[{0,1,2,3,10,100,987654321,0}] |
Rank[{0,1,2,3,10,100,987654321,0}] |
||
Unrank[%] |
Unrank[%] |
||
First@*Unrank@*Rank@*List /@ Range[0, 20]</lang> |
|||
{{out}} |
{{out}} |
||
<pre>4886947482322057719812858634706703 |
<pre>4886947482322057719812858634706703 |
||
{0, 1, 2, 3, 10, 100, 987654321, 0} |
{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}}== |
=={{header|Nim}}== |