18 lines
248 B
Awk
18 lines
248 B
Awk
BEGIN{ FS = ","; ngen=256 }
|
|
{
|
|
for(i=1;i<=NF;i++){
|
|
c[$i]++
|
|
}
|
|
}
|
|
END{
|
|
for(g=1;g<=ngen;g++){
|
|
for(i=0;i<=8;i++){
|
|
nc[i] = c[(i+1)%9]
|
|
if(i==6) nc[i] += c[0]
|
|
}
|
|
for(i in nc) c[i] = nc[i]
|
|
}
|
|
for(i in c) count+=c[i]
|
|
print "total ", count
|
|
}
|