3 lines
No EOL
122 B
Haskell
3 lines
No EOL
122 B
Haskell
t=tail
|
|
d x=sum[1|y<-zipWith(<)x(t x),y]
|
|
main=interact$show.((,).d<*>d.((zipWith3(((+).).(+))<*>t)<*>(t.t))).map read.lines |