Difference of by feuermonster

n a@(q:w)=init$zip a$w++[q]
f r|length r>1=g.n$r|1>0=[]
g=(\r->(>>=show)r++'\n':f r).map(\(a,b)->abs$a-b)
main=interact(\l->l++(g$n$map(\c->read[c])$init$l))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page