advent-of-code/12021/03/03_new.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
}