33 lines
354 B
Awk
33 lines
354 B
Awk
BEGIN{ FS = "," }
|
|
{
|
|
for(i=1;i<=NF;i++){
|
|
f[i] = $i
|
|
}
|
|
}
|
|
END{
|
|
n = NF
|
|
|
|
incn = 0
|
|
|
|
for(g=1;g<=80;g++){
|
|
incn=0
|
|
for(i=1;i<=n;i++){
|
|
if(!f[i]){
|
|
f[i] = 6
|
|
incn++
|
|
f[n+incn]=8
|
|
}
|
|
else{
|
|
f[i]--
|
|
}
|
|
}
|
|
n = length(f)
|
|
# printf "day %d ", g
|
|
for(i=1;i<=n;i++){
|
|
# printf "%d, ", f[i]
|
|
}
|
|
# print ""
|
|
}
|
|
print "total ", length(f)
|
|
}
|