Kimariji by lynn(henkma)

main=interact$((>>=)<*>g).lines
g[_]_="\n"
g x(a:b)=a:g[z|y:z<-x,y==a]b

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

download

return to the top page