Hangul resyllabification by rst76

m@main=getLine>>=putStrLn.f div mod.map fromEnum>>m
f(&)(%)s=do y<-[g s&28*28-12,g(drop 3s)+(1:2:0:3:0:0:4:6:[0..13]++[15..])!!(g s%28)*588-7067];map toEnum[y&4096,y&64%64+128,y%64+128]
g(a:b:c:_)=a*8^4+b*64+c-8309

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

download

return to the top page