Morse decode by Defenestrator

main=interact$unwords.map(map((" etianmsurwdkgohvf,l.pjbxcyzq"!!).(`mod`32).foldl(\n c->n*2+1+fromEnum(c<'.'))0).s).words
s('/':d)="":s d
s(c:d)=let a:b=s d in(c:a):b
s r=[r]

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

download

return to the top page