🚀 go-pugleaf

aito@ecip.tohoku.ac.jp (Akinori Ito) showed:
>> #include <stdio.h>
>> typedef unsigned n;n main(m,a)char**a;{static FILE*i;return!m?a?(n
>> )fopen(*a,"r"):(n)exit(0):m-(n)main?m>1&&m-(n)a?(((n)i=main(0,++a)
>> )?(main(i,i),main(-1,0),--m,(n)main(m*(m>1),(n)a*(m>1))):(n)main(0
>> ,0)):(m-1?(a?(feof((FILE*)a)||(main(main,main(main,main)),(n)main(
>> a,a))):(n)fclose(a)):(n)main(stdin,stdin)):(n)(a)-(n)main?putchar(
>> (n)a):fgetc(i);}
 
sakamoto@sm.sony.co.jp (Tomohiko Sakamoto) wrote:
> $B$3$N%W%m%0%i%`$G$O!"(Ba==0 $B$G(B fclose(a) $B$r<B9T$7$F$$$^$;$s$+!)(B

In article <3772@akiu.gw.tohoku.ac.jp>,
        aito@ecip.tohoku.ac.jp (Akinori Ito) says:
> $B$o$O$O$O!%(Bfclose(i) $B$N(B typo $B$G$9$M!%(B(^^;)

$B$=$l$@$1$G$O$"$j$^$;$s!#(B
$B$3$N%W%m%0%i%`$r0z?t$J$7$G8F$S=P$9$H!"(BFILE *i; $B$N(B i $B$,(B stdin $B$K(B
$B=i4|@_Dj$5$l$J$$$N$G!"(Bfgetc(i) $B$,%(%i!<$K$J$j$^$9!#(B
main(stdin,stdin) $B$r(B main(i=stdin,stdin) $B$K$9$l$P$h$$$N$G$O!)(B

$B$^$?!"(Bmain(main,main(main,main)) $B$O!"(Bputchar(fgetc(i)) $B$N$3$H$G$9$,!"$$(B
$B$/$i$=$ND>A0$K(B feof(i) $B$N%A%'%C%/$rF~$l$F$b!"(Bfgetc(i) $B$,(B EOF $B$rJV$9$H!"(B
$BL5>r7o$K(B putchar(EOF) $B$,<B9T$5$l$F!"=PNO$K(B 0xff $B$,DI2C$5$l$F$7$^$$$^$9!#(B
fgetc(i) $B$r(B (m=fgetc(i))+1?m:main(0,0) $B$K$9$l$P!)(B

--
$B:dK\CRI'!w%P%0$H$j8"J<1R(B
sakamoto@sm.sony.co.jp