grep golfing technique by 鳴神裁4.1号(verbose)

DO;1<-#4 DO\xaccaptures<grep>
DO;2<-#3 DO\xaccaptures< -e>
DO;3<-#2 DO\xaccaptures< ">
DO\xacLF usage if empty
DO,1<-#99

DOWRITEIN;1+;2+;3

(8)DOREADOUT;1+;3

DOREADOUT,1

DO;2<-#5
(8)DOWRITEIN;2

DOREADOUT,1
DOWRITEIN;2+,1
DOREADOUT,1

D DO\xac end here

DO\xacroutine to do
  {
    char c;
    for(;(c=getchar()!=)'"';)
      putchar(c);}
DONEXTFROM#8
DOCOMEFROM#9
DO;1<-#1
DOWRITEIN;1
(113)DO:1<-;1SUB#1
(9)DOREADOUT;1
DOCOMEFROM:1~#255 DO\xac come here if <">
DORESUME#1

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page