wat.pl

sub _flatten_choices ($self, $regular_slots, $fallback_slots, $default_slots) {
    my $scale_fallbacks = @$default_slots;
    my $scale_defaults = @$fallback_slots;
    my $scale_regulars = $scale_fallbacks * $scale_defaults;

    # Avoid scaling by a common factor.
    if ($scale_fallbacks && $scale_defaults) {
        my $u = $scale_fallbacks;
        my $v = $scale_defaults;
        ($u, $v) = ($v, $u % $v) while $v;
        my $gcd = abs($u);
        if ($gcd > 1) {
            $scale_fallbacks /= $gcd;
            $scale_defaults  /= $gcd;
            $scale_regulars  /= $gcd;
        }
    }

    return [
        (@$regular_slots)  x max(1, $scale_regulars, $scale_fallbacks, $scale_defaults),
        (@$fallback_slots) x max(1, $scale_fallbacks),
        (@$default_slots)  x max(1, $scale_defaults),
    ];
}