Cody Boone Ferguson
9d63c37f49
There were some which cannot be compiled under clang. One entry we used a patch from Yusuke Endoh to get the entry to compile; thank you Yusuke for your assistance! Another one we used a patch from Yusuke (thank you!) but I further fixed it so that it would work with clang. It had to be done: IOCCC Tetris has to work! This was done by changing the environment arg to main() to be a char * in main() itself rather than a char **. Using a char ** in main() third arg got it to compile but only one key worked with clang so I changed it to be not the third argument but a regular char * in main(). **a (third arg) evaluated correctly but *a[1] and onward was actually part of the environment. Again IOCCC Tetris has to work! I also fixed fubar to work which took a few tweaks. README.md files were also updated.
34 lines
1007 B
C
34 lines
1007 B
C
typedef struct A*B,*(*C)();struct A{C(*d)();B e;}*v(),*b;C n[256];
|
|
# include <stdio.h>
|
|
#define a (d->e)
|
|
#define o (B)printf
|
|
#define X(_){return _;}
|
|
#define Y(_,A)B _(d,e)B d,e;X(A)
|
|
#define Z(P)C P(f,g,h,i)C f,g,h,i;X(P)
|
|
#define c(_)(b=(B)malloc(sizeof(*b)),b->d=_,b->e=d,b)
|
|
#define _(D,E,F,G,H)B D();Y(D##f,E)Y(D##g,F)Y(D##h,G)Y(D##i,H)Y(D,(*(*d->d)(D##f,D##g,D##h,D##i))(d,e))
|
|
Z(f)
|
|
Z(g)
|
|
Z(h)
|
|
Z(i)
|
|
_(j,d,d,j a,j a)
|
|
_(k,d,c(h),c(h),c(h))
|
|
_(l,c(i),d,c(i),c(i))
|
|
_(m,c(g),c(f),l(m a),k(m a))
|
|
_(p,d,l(m(d)),k(p a),l(m a))
|
|
_(q,l(p(d)),m(d),l a,k(q a))
|
|
_(r,m(d),k(mf a),l(r a),k a)
|
|
_(s,d,e,o("0",s a),o("1",s a))
|
|
_(t,d,p(e),k(t(a,e)),v(k(t(a,e)),e))
|
|
_(u,k(e),l(r(e)),k(v(a,e)),l(v(a,e)))
|
|
_(v,e,r(e),u(e,a),u(q(e),a))
|
|
_(w,o("0"),d,s(d),s(d))
|
|
_(x,(*n[getchar()])(d),o("-1"),w(p(d,o("-"))),xh(d))
|
|
_(y,xf(mg()),v(d,p(yf())),v(d,yf()),t(d,yf()))
|
|
_(z,xf(yf()),(*(*j(d)->d)(w,x))(d),xf(k(d)),xf(l(d)))
|
|
main(){
|
|
n['(']=zf;n['x']=yi;n['-']=yg;
|
|
n['+']=yh;n['0']=zh;n['1']=zi;
|
|
n[' ']=xf;n[')']=n['\n']=kf;
|
|
o("\n",zg(yf()));}
|