easy regexp by kozima

(mapc'write-line(reduce(#2=lambda(u v)(mapcan(#2#(x)(mapcar(#2#(y)(format()"~A~A"x y))v))u))(case(read-char)(#\['((A B C)#1=(ABC DEF)))(#\A'((A)(""B)("". #1#)(FF)(""X Y Z)))(t'(("""Objective-""Aspect""Concept")(C D)(""++ -- \#"omega"))))))

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

download

return to the top page