Morse decode by Air Hadoken

(let*((c '(()()e t i a n m s u r w d k g o h v f()l()p j b x c y z q))(d display)(p(lambda(b)(d(case b((85)#\.)((115)#\,)(else(list-ref c b)))))))(p(fold(lambda(l b)(case l((#\/)(and(p b)1))((#\SPACE)(and(p b)(d " ")1))((#\.)(* b 2))((#\-)(+ b b 1))))1(string->list(read-line)))))

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

download

return to the top page