use v6;

sub iter_powerset ( *@factor ) returns Ref {
    my @subset = (undef) xx @factor.end;
    my ($pos, $mode) = (-1, 1);
    my $return = sub { list @factor[ grep { defined $_ } @subset ] };
    my %dispatch = (
        1 => sub {
            ++$pos;
            @subset[ $pos ] = $pos;
            ++$mode if $pos == @factor.end;
            $return();
        },
        2 => sub {
            @subset[ $pos - 1 ] = undef;
            ++$mode;
            $return();
        },
        3 => sub {
            @subset[ $pos-- ] = undef;
            while ( $pos >= 0 ) {
                last if defined @subset[ $pos ];
                --$pos;
            }
            @subset[ $pos++ ] = undef;
            return () if ! $pos;
            @subset[ $pos ] = $pos;
            $mode = 1;
            $return();
        },
    );
    return sub { %dispatch{ $mode }() };
}

my $next = iter_powerset( 1..5 );
my @combo;
while ( @combo = $next() ) {
    @combo.say;
}