Outrun problem in AWK

outrun.awk

function max(a, b) {
        return a > b? a: b;
}

$1 == "#" {
        print "Seed", $3
        next;
}

{
        for (i = NF; i > 0; i--)
                count[i] = max(count[i], count[i-1]) + $i;
}

END {
        for (i in count)
                result = max(result, count[i]);

        print result;
}

function m(a,b) {return a>b?a:b}
$1 == "#" {next;}
{for(i=NF;i>0;i--) c[i]=m(c[i]+$i c[i-1]+$i)}
END {for (i in c) r = m(r, c[i]); print r}

140 merkkiä tasan

function m(a,b) {return a>b?a:b}
$1 == "#" {next}
{for(i=NF;i>0;i--) c[i]=m(c[i]+$i,c[i-1]+$i)}
END {for (i in c) r = m(r,c[i]); print r}

137 merkkiä ja bugi korjattu.

function m(a,b){return a>b?a:b}
/#/{next;}
{for(i=NF;i>0;i--)c[i]=$i+m(c[i],c[i-1])}
END {for(i in c)r=m(r,c[i]);print r}

function m(a,b){return a>b?a:b}
/#/{print $3;next}
{for(i=NF;i>0;i--)c[i]=$i+m(c[i],c[i-1])}
END{for(i in c)r=m(r,c[i]);print r}

function m(a,b){return a>b?a:b}/#/{s=$3;next}{for(i=NF;i;i--)c[i]=$i+m(c[i],c[i-1])}END{for(i in c)r=m(r,c[i]);print s,r}
121