Index finite lists of positive integers: Difference between revisions
Content added Content deleted
m (→{{header|Go}}) |
m (→{{header|Perl 6}}: s/20/10) |
||
Line 194: | Line 194: | ||
sub unrank(Int $n) { my ($a, $b) = expand($n, 2); expand $a, $b + 2 } |
sub unrank(Int $n) { my ($a, $b) = expand($n, 2); expand $a, $b + 2 } |
||
for ^ |
for ^10 { |
||
my @unrank = unrank $_; |
my @unrank = unrank $_; |
||
say @unrank, " <-> ", rank @unrank; |
say @unrank, " <-> ", rank @unrank; |