Index finite lists of positive integers: Difference between revisions
Index finite lists of positive integers (view source)
Revision as of 23:05, 8 June 2021
, 3 years agono edit summary
m (→{{header|Phix}}: added syntax colouring the hard way) |
No edit summary |
||
Line 569:
10 -> [1, 1] -> 10
</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}}==
| |||