Landon Curt Noll
2ba12ecc3c
Under each yyyy/dir there is a file of the form '*.orig.c' containing the original source code, or as close as we can get to the original source code.
35 lines
917 B
C
35 lines
917 B
C
#include<stdarg.h>/*Y=\f*/
|
|
#include<stdio.h>/*.(\x.f(*/
|
|
#define z return/*xx))(\x.*/
|
|
#include<stdlib.h>/*f(xx))*/
|
|
typedef union w w;union w{
|
|
#define L(f,y,x,t) w _ ##\
|
|
f(w x,...){va_list argh;w\
|
|
y; va_start(argh,x);y= *\
|
|
(va_arg(argh,w*));va_end\
|
|
(argh);z(t);} w f (w fw)\
|
|
{r((w){.c= &_## f}, fw);}
|
|
int _; void*p;w(*c)(w,...
|
|
#define r(x,y)w*k=malloc\
|
|
(sizeof(w)<<1); k[0]= x\
|
|
; k[1]=y; z((w) {.p= k})
|
|
#define l(f,x,t)w _##f(\
|
|
w x,...){z(t);}w f={.p\
|
|
=(w[1]){{.c= &_##f}}};
|
|
);};w a(w f,w x){w*d=f
|
|
.p;z((*d->c)(x,d+1)
|
|
|
|
|
|
) ; }
|
|
w a_(w f,w fw){r(f,
|
|
fw);}w _(w f){w*k=f.p,r=
|
|
a(*k,k[1]); free(k) ;z(r);}
|
|
L(F,f,x,(w){._=x._?x._*a(_(f),
|
|
(w){._=x._-1})._:1})l(F_,f,F(f)
|
|
)L( W,(f),/*=\*/x,a(f,a_(x,x))
|
|
)l( Y,/*=\*/f,a(W(f),W(f))
|
|
)int main(){printf("%.""f\n",
|
|
a(a(Y,F_),(w){._=10})._
|
|
/60./60/24/*d */
|
|
) ; }
|