What ROT is this? - decrypt ROT-n
Haskell - 192 175
f y=sum.map(\x-&gt;length.fst$break(==x)y)
main=interact(\s-&gt;snd$minimum$[(f&quot;etaoinshrdlcumwfgypbvkjxqz&quot;r,show(26-n)++&quot; &quot;++r)|n&lt;-[0..25],let r=map(\x-&gt;([x..'z']++['a'..])!!n)s])

Running
% ./rot-n &lt;&lt;&lt; &quot;pmttwxmwxtmwnxzwoziuuqvoxchhtmakwlmowtnabiksmfkpivom&quot;
8 hellopeopleofprogrammingpuzzlescodegolfstackexchange