paren matching by cojna

main=interact(""#)
(t:s)#('?':y)=t:s#y
s#(x:y)=x:s#[w|(z,w)<-zip"([{"")]}",x==z]#y
s#_=s

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

download

return to the top page