37 lines
587 B
Awk
37 lines
587 B
Awk
# read a list of decks in chronological order and produce a score for each card that appears
|
|
|
|
# skip comments
|
|
/^#/ {
|
|
next
|
|
prev = ""
|
|
}
|
|
|
|
{
|
|
# decay of scores
|
|
if (FILENAME != prev) {
|
|
for (i in score) {
|
|
score[i] = 0.99 * score[i]
|
|
}
|
|
prev = FILENAME
|
|
}
|
|
|
|
|
|
s = gensub("^([0-9]*) ", "\\1|", "g", $0)
|
|
#print s
|
|
split(s, tok, "|")
|
|
#print "|"tok[1]"|"
|
|
cnt = tok[1]
|
|
gsub("|","",tok[2])
|
|
#print "|"tok[2]"|"
|
|
name = tok[2]
|
|
|
|
score[name] += cnt
|
|
}
|
|
|
|
END {
|
|
for (i in score) {
|
|
print score[i] "\t" i
|
|
}
|
|
}
|
|
|