tailsさんがdcで無双していた。

perlだけrubyだけで見ても$1$位ならず。-p0aからの$Fによるparseがよいようだ。

print abs(($_=<>.($t=<>))-$t)/2+abs(~/ .* /s&&$&-$')/2
c=0;gets.split.zip(gets.split){|a,b|c+=(a.to_i-b.to_i).abs};p c/2.0