Hangul resyllabification by m.ukai

let g,c,n,(%)=output_byte stdout,Char.code,4096,(mod)let rec(!)?(s=read_line())?(u=c s.[0]*n+c s.[1]*64+c s.[2]-969856)?(w=u/28*28+44032)?(m=c s.[3]*n+c s.[4]*64+c s.[5]-932292+[|6;7;8;9;10;11;12;14;15;16;17;18;0;0;1;0;2;0;0;3;5|].((u-16)%28)*588)x=g(w/n+224);g(w%n/64+x);g(w%64+x);g(m/n+224);g(m%n/64+x);g(m%64+x);g 10;!x;;!128

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

download

return to the top page