foo.p6

for $log.IO.lines {
    if /^‘start = ’$<s>=[<[0..9]>+]‘ ; end = ’$<e>=[<[0..9]>+]‘ ; sum = ’$<sum>=[‘-’?<[0..9]>+]$/ {
        #my $s = $0;
        #my $e = $1;
        #my $sum = $2;
        say "$<s> $<e> $<sum>";
        %starts{$<s>}{$<e>}{$<sum>} = True;
        #if +%starts{$s} >1 or +%starts{$s}{$e} > 1 {
        #    die %starts{$s};
        #}
        %ends{$<e>}{$<s>}{$<sum>} = True;
        #if +%ends{$e} >1 or +%ends{$e}{$s} > 1 {
        #    die %ends{$e};
        #}
    } else {
        die "not match $_";
    }
}