Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        } \@cnt, \@size;
}
print "($tries tries)\n";

> perl change.pl 103 100 33 10 3 | more
1) 1*10 + 31*3
...
9) 1*100 + 1*3
(56 tries)
>