8 lines
No EOL
237 B
Haskell
8 lines
No EOL
237 B
Haskell
import Data.List
|
|
d=id
|
|
v p@(x:s)=(length p,length x,p)
|
|
q l z = fromEnum$l`div`2<z
|
|
c=foldr(\x y->2*y+x)0.reverse
|
|
u w i=i*(2^w-1-i)
|
|
t (h,w,i)=u w$c$map(q h.sum.map(subtract 48.fromEnum))$transpose i
|
|
main=interact$show.((,).d<*>d).t.v.lines |