easy regexp by ySas(not bin)

/a[()]def(%stdin)(r)file 99 string readline pop{{dup 0 1 getinterval anchorsearch pop dup 0 get 41 idiv[{pop(\))search pop exch pop[exch{(|)search not{exit}if exch pop exch}loop}{[exch}{pop(])search pop exch pop[exch{1 string dup 0 4 3 roll put}forall}]exch get exec counttomark 2 add -1 roll(?)anchorsearch{pop()counttomark 1 roll}if counttomark 1 add 1 roll]/b exch def/a[a{/c exch def b{c exch concatstrings}forall}forall]def}loop}stopped a{=}forall

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


return to the top page