Index finite lists of positive integers: Difference between revisions

m
Line 194:
sub unrank(Int $n) { my ($a, $b) = expand($n, 2); expand $a, $b + 2 }
 
for ^2010 {
my @unrank = unrank $_;
say @unrank, " <-> ", rank @unrank;
1,934

edits