typedef unsigned char B;char*x[]={ #include "dict.h" 0};typedef struct L{B*s;struct L*n;}L; L*h[128],*l[128],*s[128],Z[sizeof x/sizeof*x],*F=Z;int c[256],m,a=1; int k(B*q){int g=0;B*p=q;while(*p)g|=!c[*p++]--;return g-1&p-q;} void u(B*p){while(*p)c[*p++]++;} void S(int N,int r,int t,L*W){L*w;int i,n; for(n=r<N?r:N;n>0;n--)for(w=n==N?W:h[n];s[t]=w;u(w->s),w=w->n)if(k(w->s)) if(n==r){if(t==m-1)for(i=a=0;i<=t;i++)printf("%s%c",s[i]->s,i<t?' ':'\n');} else if(t<m-1)S(n,r-n,t+1,s[t]=w);} int main(int C,B**A){int i=0,g,n=0;B*p;while(--C)for(p=*++A;n<127&&*p;)c[*p++]++,n++; for(;p=x[i++];u(p))if(g=k(p))(l[g]=*(l[g]?&l[g]->n:&h[g])=F++)->s=p; while(++m<128)S(127,n,0,h[127]); return a;}

引用元：https://www.ioccc.org/2005/klausler/klausler.c

審査員・作者による説明：https://www.ioccc.org/2005/klausler/hint.text

動作

アナグラムを生成する。

$ cat /usr/share/dict/words | tr -cd 'A-Za-z\n' | tr A-Z a-z | egrep -v '^[^ais]$' | sort | uniq | sed 's/^/"/;s/$/",/' > dict.h

$ gcc -o klausler klausler.c

$ ./klausler hello world
howled roll
rolled howl
droll whole
hello world
droll low eh
droll low he
droll owl eh
droll owl he
doll howl re
doll her low
doll her owl
drew loll ho
drew loll oh
hell low rod
hell old row
hell owl rod
hold roll we
hold well or
lewd roll ho
lewd roll oh
loll word eh
loll word he
loll hew rod
loll how red
loll red who
lord well ho
lord well oh
roll weld ho
roll weld oh
roll hew old
roll how led
roll led who

解説

#include "dict.h"しているが、これは/usr/share/dict/のファイルなどからdict.hを指定フォーマットで作る必要がある。 IOCCCの配布パッケージにはすでに生成された次のようなファイルが添付されている。

"a",
"aardvark",
"abaci",
"aback",
"abacus",
"abacuses",
"abacuss",
"abandon",
"abandoned",
"abandoning",
...
"zooming",
"zooms",
"zoos",
"zucchini",
"zucchinis",

ソースコードに入りきらないものはユーザの環境からもってこよう、というところが審査員の琴線に触れた模様。 IOCCCの第1のルール、「投稿作品は完全なプログラムでなければならない」に挑戦しているようになっている。。 ただし作者本人にはルールに挑戦するつもりはなかったとのこと。