language: AWK (mawk) (mawk-1.3.3)
date: 721 days 10 hours ago
link:
visibility: public
1
2
3
4
5
/a+b+/ { a = $NF + $(NF - 1); t[$(NF - 2)] += a; }
/^[ab]/ { a = $NF + $(NF - 1); t[$(NF - 2)] += a; }
/b*c+/ { a = $NF + $(NF - 1); t[$(NF - 2)] += a; }
!/d/ { a = $NF + $(NF - 1); t[$(NF - 2)] += a; }
END { for (i in t) { print i, t[i]; } }