Most humorous output

もっともユーモラスな出力

Line wrap

Highlight

#include <string.h>
typedef char ape
#define D define
#D EA register
#D EP unsigned
#D A 1
#D AP (A<<A)
#D P (A<<AP)
#D AE ((P<<P)<<A)
#D PE (((A<<P)<<P)<<P)
#D E ((EP)A>>A)
#D APE {EA EP ape ea=AE;while(ea--) e[ea]=E;}
;ape a[PE+A],ap,*ae,p[P+A],e[AE];
main(){ape pe,*ep=a;srand((EP)time((long)E));
while(((*(ep++)=getchar())!=-A)&&((ep-a)<PE));
*(ae= --ep)=E;for(ap=E;ap<=P;){APE;if(pe=PA())
{putchar(pe);if(ap<P){p[ap]=pe;ap++;}else{
ep=p+A;while(*ep) *(ep-A)= *(ep++); *(ep-A)=pe;}}else break;}}
PA(){EA ape pe,*ep=a,pa,Ap=E;for(ep=a;ep<ae-P;ep++)
if(!strncmp(ep,p,ap)){e[*(ep+ap)]++;Ap++;}if(!Ap)return(Ap);
pa=rand()%Ap+A;pe=~E,Ap=!Ap;while((Ap+=e[++pe])<pa);return(pe);}

引用元：https://www.ioccc.org/1989/ovdluhe.c

審査員・作者による説明：https://github.com/ioccc-src/winner/blob/main/1989/ovdluhe.hint

動作

与えられたテキストを参考に、適当な文字列を生成していく。

$ gcc -o ovdluhe ovdluhe.c

$ ./ovdluhe < /usr/share/dict/american-english-small
's
Catholic's
Catholicism
Americans
April's
American
Asians
F
F's
Frence
absconding
abunday's
Tuesday's
Christmases
Thursday
Wednesday's
Frence
abbeys
...

解説

「猿がタイプライターを無限に叩き続ければ、いつか必ず任意のテキスト（たとえばシェイクスピアの作品でも）を打ち出す」という無限の猿定理に着想を得た作品。最近出力した4文字分だけの記憶を持ち、元のテキストの中でその4文字の直後に現れる確率が高い文字をランダムに選んで出力する、というのを繰り返す。

難読化は、識別子がape（猿）っぽい文字列ばかりという程度だと思う。興味深い挙動というネタで勝利した作品。

次の3点を修正した。

#define D defineして#Dするコードを展開。
typedef char apeとした上でunsigned apeとするのはダメなようなのでunsigned charに置き換え。
*(ep-A)= *(ep++);は未定義動作（副作用完了点の前に変更と読み出しがある）ので*(ep-A)= *(ep),ep++;に修正。

パッチ

--- ovdluhe.c
+++ ovdluhe.c
@@ -1,21 +1,21 @@
 #include <string.h>
 typedef char ape
 #define D define
-#D EA register
-#D EP unsigned
-#D A 1
-#D AP (A<<A)
-#D P (A<<AP)
-#D AE ((P<<P)<<A)
-#D PE (((A<<P)<<P)<<P)
-#D E ((EP)A>>A)
-#D APE {EA EP ape ea=AE;while(ea--) e[ea]=E;}
+#define EA register
+#define EP unsigned
+#define A 1
+#define AP (A<<A)
+#define P (A<<AP)
+#define AE ((P<<P)<<A)
+#define PE (((A<<P)<<P)<<P)
+#define E ((EP)A>>A)
+#define APE {EA EP char ea=AE;while(ea--) e[ea]=E;}
 ;ape a[PE+A],ap,*ae,p[P+A],e[AE];
 main(){ape pe,*ep=a;srand((EP)time((long)E));
 while(((*(ep++)=getchar())!=-A)&&((ep-a)<PE));
 *(ae= --ep)=E;for(ap=E;ap<=P;){APE;if(pe=PA())
 {putchar(pe);if(ap<P){p[ap]=pe;ap++;}else{
-ep=p+A;while(*ep) *(ep-A)= *(ep++); *(ep-A)=pe;}}else break;}}
+ep=p+A;while(*ep) *(ep-A)= *(ep),ep++; *(ep-A)=pe;}}else break;}}
 PA(){EA ape pe,*ep=a,pa,Ap=E;for(ep=a;ep<ae-P;ep++)
 if(!strncmp(ep,p,ap)){e[*(ep+ap)]++;Ap++;}if(!Ap)return(Ap);
 pa=rand()%Ap+A;pe=~E,Ap=!Ap;while((Ap+=e[++pe])<pa);return(pe);}

パッチをダウンロード