14 lines
196 B
Awk
14 lines
196 B
Awk
BEGIN{ RS = ","; ngen=256 }
|
|
|
|
{ c[$1]++ }
|
|
|
|
END{
|
|
for(g=1;g<=ngen;g++){
|
|
for(i=0;i<=8;i++) nc[i] = c[(i+1)%9]
|
|
nc[6] += c[0]
|
|
for(i in nc) c[i] = nc[i]
|
|
}
|
|
for(i in c) count+=c[i]
|
|
print count
|
|
}
|