Index finite lists of positive integers: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
No edit summary |
||
Line 569: | Line 569: | ||
10 -> [1, 1] -> 10 |
10 -> [1, 1] -> 10 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[Rank,Unrank] |
|||
Rank[x_List]:=FromDigits[Catenate[Riffle[IntegerDigits/@x,{{15}},{1,-1,2}]],16] |
|||
Unrank[n_Integer]:=FromDigits/@SequenceSplit[IntegerDigits[n,16],{15}] |
|||
Rank[{0,1,2,3,10,100,987654321,0}] |
|||
Unrank[%]</lang> |
|||
{{out}} |
|||
<pre>4886947482322057719812858634706703 |
|||
{0, 1, 2, 3, 10, 100, 987654321, 0}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |