Most functional

最も関数的

Line wrap

Highlight

   #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 */
             ) ; }

引用元：https://www.ioccc.org/2014/wiedijk/prog.c

審査員・作者による説明：https://www.ioccc.org/2014/wiedijk/index.html

動作

42を出力する。

$ gcc -o prog prog.c

$ ./prog
42

解説

10の階乗を計算している。コード形状も、階乗を表す!マーク。

明示的なループも明示的な再帰呼び出しも使わずに階乗を計算している。 C言語でYコンビネータを定義し、それによって再帰呼び出しを行っているとのこと。

ちょっとした工夫として、10!の結果（3628800）をそのまま出力するのではなく、3628800秒を日数に変換して出力する。 1日は606024 = 86400秒で、3628800/86400は42なので、その結果が表示されている。 42には「生命、宇宙、そして万物についての究極の疑問の答え」という元ネタがあり、ハッカーの間で好まれる数字。