Index finite lists of positive integers: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: not using Test on second thought) |
|||
Line 160: | Line 160: | ||
Base 11 encoding: |
Base 11 encoding: |
||
<lang j> rank =. 11&#.@:>@:(,&:>/)@:(<@:(10&,)@:(10&#.^:_1)"0)@:x: |
<lang j> rank =. 11&#.@:}.@:>@:(,&:>/)@:(<@:(10&,)@:(10&#.^:_1)"0)@:x: |
||
unrank=. 10&#.;._1@:(11&#.^:_1)</lang> |
unrank=. 10&#.;._1@:(10&,)@:(11&#.^:_1)</lang> |
||
Example use: |
Example use: |
||
<lang J> rank 1 2 3 10 100 987654321 135792468107264516704251 7x |
<lang J> rank 1 2 3 10 100 987654321 135792468107264516704251 7x |
||
187573177082615698496949025806128189691804770100426 |
|||
10859468893418553562739357752202339093235635587121336 |
|||
unrank 187573177082615698496949025806128189691804770100426x |
|||
unrank 10859468893418553562739357752202339093235635587121336x |
|||
1 2 3 10 100 987654321 135792468107264516704251 7</lang> |
1 2 3 10 100 987654321 135792468107264516704251 7</lang> |
||