#include <locale.h> #include <stdio.h> #include <stdlib.h> #include <wchar.h> #define P 9<<23^1 #define A 1;O-L;L=0<L[o]?L[K][k]=L #define N for(O=l[k];l-O;O=O[k])for(L=O #define G 1+c[C];c[C]-I;I=0<(l=I[o])? #define R(A,M) wcschr(1+M,A) static int C[97],d,k[98^P],O,l=1,o[98^P],L,K[98^P],v[97],V[98],c; static void y(){l[V][v]=l[v][V]=l;N-A,L[k][K]=L,++L[o][o],L-1:L[k]);} static void b(){N+A[k],L[k][K]=L[K],--L[o][o],L+1:L[K]);l[V][v]=l[v];l[v][V]=l[V];} static wchar_t s[P],*w=1+s,*p[P],z[99],**q=p,*W=1+s,*Z; int main(int I,char**j){if(l<I){wint_t S;setlocale(LC_CTYPE,""); for(mbstowcs(l+z,l[j],97);l[z];++l)V[l[v]=l+1]=l[K]=l[k]=l; for(v[*V=l-(*v=1)]=L;WEOF-(S=getwchar())&&P>W-s;++W)if(33>(*W=S)){ for(*W=L,Z=w;*Z;++Z)if(R(*Z,Z)||!R(*Z,z)){W=w-1;goto M;} for(I=L;I[w];++I)++o[O=R(I[w],z)-z],k[K[l[o+I+1]=O]=k[l[K+I+1]=O[K]]=l+I+1]=O; *q++=w;l[k]=l+I;o[l+=I+1]=p-q;l[K]=l-I;M:w=1+W;} *j="Dictionary too long\n";if(WEOF-S)H:return fputs(*j,stderr),**j/36; d=2[j]?atoi(2[j]):97;while(P){if(I=*v){for(O=P;I;I=I[v])O>I[o]?l=I,O=I[o]:P; b();c[C]=l[k];T:if(l-c[C]){for(I=G b(),I+1:I[K]);if(d>c++)continue;}else y(); }else{for(;I-c;++I){for(O=I[C];0>~O[o];++O);printf(!I+" %ls",p[~O[o]]);} putchar(10);} if(!c--)return 0; for(I=-G y(),I-1:I[k]); l=c[C][o];c[C]=c[C][k];goto T;}} *j="Need an argument or two\n";goto H;}

引用元：https://www.ioccc.org/2019/ciura/prog.c

審査員・作者による説明：https://www.ioccc.org/2019/ciura/hint.html

動作

ワードのリストを標準入力から受け取り、それを組み上げてコマンドライン引数で指定された文字の完全パングラムを生成する。

$ gcc -o prog prog.c

$ grep .. /usr/share/dict/american-english-large | ./prog abcdefghijklmnopqrstuvwxyz | grep quick
quick fjord hazy lx veg mb ts pwn
quick fjord hazy lx vet mb gs pwn
quick fjord zap lx vent mb gs why
quick hadj grosz vet pwn lx mf by
quick jab zed vow mf lx nth gs pry
quick jab zed vow mf lx nth gyp rs
quick jag fez vow mb dry ps nth lx
quick jag zed vow mb fry ps nth lx
quick jo lx adz verb mf gs pwn thy
quick jo lx adz verb mf tyg sh pwn
quick job adz lx rev mf gs pwn thy
quick job adz lx rev mf tyg sh pwn
quick job adz lx veg mf nth wry ps
quick job adz lx veg mf pwn rs thy
quick job adz lx veg mf pwn try sh
quick job tzar gyved mf sh pwn lx
quick jog adz lx verb mf pwns thy
quick jog adz lx verbs mf pwn thy
quick jog adz lx vet mb fry sh pwn
quick jog fez lx vat mb dry sh pwn
quick jog zed vat mb fry sh pwn lx
quick jogs adz lx verb mf pwn thy
quick josh lx adz verb mf pwn tyg
quick jot lx adz veg mb fry sh pwn
quick jot lx zarf gyved mb sh pwn
quick jowl pyx adz verb mf gs nth
quick jowl vex zap mb fyrd gs nth

並べ替えて意味のある文章にするのはユーザの責務とのこと。 完全パングラム（同じ文字を使えるのは1回だけ）なので、有名な”a quick brown fox might jump over the lazy dog”は出てこない。

解説

KnuthのTAOCPに出てくるアルゴリズムを実装したとのこと。 詳しくはhint.textを参照。

アナグラムは[[2005/klausler]]で既出のネタだが、それは認識した上で、国際化対応と高速化が新規性とのこと。