15 lines
184 B
Awk
15 lines
184 B
Awk
BEGIN{ FS = "" }
|
|
|
|
{
|
|
for(i=1;i<=NF;i++)
|
|
c[i] += $i
|
|
}
|
|
|
|
END{
|
|
for(i=1;i<=NF;i++)
|
|
gamma += lshift( c[i]>NR/2, NF-i )
|
|
|
|
epsilon = 2^NF -1 -gamma
|
|
print gamma, epsilon, gamma*epsilon
|
|
}
|