GroupBy Test

groupbysign.raku

say my @input = (1, 4, -3, -6, 5, 6); 

sub demerge( $aoa is rw, $value ) { 
    state $first = 1;
    state $newi = 0;
    state $last; 

    my $this = $value.sign; 

    if $first {
        $first = 0 
    } elsif $this != $last {
        $newi++
    }   

    $aoa[$newi].push: $value; 
    $last = $this;
}

my $aoa;
@input.map({demerge($aoa, $_)});
say $aoa.map(*.max);