Rosetta Code

Index finite lists of positive integers: Difference between revisions

Page Discussion

Index finite lists of positive integers (view source)

Revision as of 16:53, 13 May 2014

24 bytes removed ,  10 years ago
→‎{{header|Perl 6}}: not using Test on second thought
(→‎{{header|Perl 6}}: not using Test on second thought)
Line 270:
sub rank(@n) { compress (compress(@n), @n - 1)}
sub unrank(Int $n) { my ($a, $b) = expand $n, 2; expand $a, $b + 1 }
 
use Test;
plan 11;
 
my @list = (^10).roll((2..20).pick);
my $rank = rank @list;
is @list, unrank($rank),say "[$@list] -> $rank -> [{unrank $rank}]";
 
for ^10 {
my @unrank = unrank $_;
is $_, rank(@unrank),say "$_ -> [$@unrank] -> {rank @unrank}";
}</lang>
 
{{out}}
<pre>[7 1 4 7 7 0 2 7 7 0 7 7] -> 20570633300796394530947471 -> [7 1 4 7 7 0 2 7 7 0 7 7]
<pre>1..11
0 -> [0] -> 0
ok 1 - [0 0 0 9 1 4 3 3 5 1 7] -> 20162368965225804465357
ok 21 -> 0[1] -> [0]1
ok 32 -> 1[0 0] -> [1]2
ok 4 - 23 -> [01 0] -> 3
ok 54 -> 3[2] -> [1 0]4
ok 65 -> 4[3] -> [2]5
ok 76 -> 5[0 1] -> [3]6
ok 8 - 67 -> [01 1] -> 7
ok 9 - 78 -> [10 10 0] -> 8
ok 10 - 89 -> [01 0 0] -> 9</pre>
ok 11 - 9 -> [1 0 0]
</pre>
 
=={{header|Python}}==
Grondilu
1,934

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/246824"