Select Code to Download

use Algorithm::FastPermute;

...
        oct "0b$s1" .. oct "0b$s1$s0"
        ];
    }

sub tux_recur {
    my ($length, $ones) = @_;
...
      ( map { "1$_" } @{tux_recur ($length - 1, $ones - 1)} ),
      ];
    }

Discipulus  0.103/s
tux_a_fp     1.43/s
...
salva        4187/s
Eily_LanX    5110/s
GrandFather  6119/s