#include <stdio.h> #define QQ 1 #define TT 1 #define cc main(c,v) int c; char **v;{char tt[12],qq[7]; int q=0,o=1,l=1,m=1;struct {int c;} f; #define ouroboros qq[6]='\0';tt[11]='\0';if(QQ==atoi(v[1])+1){(void)fprintf(stderr,"%s factorial = %d\n",v[1], TT);exit(1);}o=c+f #define x ;while(EOF!=(o=getchar())){if(l && q=='Q' && o=='Q'){l=0;(void)getchar();(void)fread(qq,6,1,stdin);(void)printf("Q %6d",atoi(qq)+1);}else if(m && q=='T' && o=='T'){m=0;(void)fread(tt,11,1,stdin);(void)printf("T %9d\n",atoi(tt)*QQ);}else {q=o;(void)putchar(o);}}exit(0);} cc ouroboros.c -o x #define zxc ;{/* cat ouroboros.c | x $1 > x1 if [ $? -ne 0 ]; then exit fi mv x1 ouroboros.c chmod +x ouroboros.c exec ouroboros.c $1 exit */

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

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

動作

階乗の計算。

動かし方にクセがある。

$ cp fubar.c ouroboros.c

$ chmod +x ouroboros.c

$ ./ouroboros.c 10
...
10 factorial = 3628800

解説

このコードはC言語とシェルスクリプトのかんたんなpolyglotになっている。 シェルスクリプトがやっている処理をわかりやすく書き下すと、次のような処理となる。

$ cp fubar.c ouroboros.c
$ cc -o x ouroboros.c && cat ouroboros.c | ./x 5 > x1 && mv x1 ouroboros.c
$ cc -o x ouroboros.c && cat ouroboros.c | ./x 5 > x1 && mv x1 ouroboros.c
$ cc -o x ouroboros.c && cat ouroboros.c | ./x 5 > x1 && mv x1 ouroboros.c
$ cc -o x ouroboros.c && cat ouroboros.c | ./x 5 > x1 && mv x1 ouroboros.c
$ cc -o x ouroboros.c && cat ouroboros.c | ./x 5 > x1 && mv x1 ouroboros.c
$ cc -o x ouroboros.c && cat ouroboros.c | ./x 5 > x1 && mv x1 ouroboros.c
5 factorial = 120

つまり、自分をコンパイルし、自分を読み込んであらたなコードを作る、ということを繰り返す。

初期コードのouroboros.cの先頭には、

#define QQ      1
#define TT         1

と書かれている。 これをビルドし、ouroboros.cを標準入力に流し込みながら./x 5と実行すると、ほとんど同じコードが出力されるが、上の箇所が下のように変わっている。

#define QQ      2
#define TT         2

これをouroboros.cとして上書き保存し、同じ処理を行うと、次のようになっている。

#define QQ      3
#define TT         6

QQが繰り返し回数、TTがここまでの階乗の値であることがわかる。 これを繰り返して、’QQ’がコマンドライン引数の数字に到達すると、標準エラー出力に5 factorial = 120と出力して停止する。

実行可能なプログラムを繰り返し出力する初の作品。 元ソースコードを標準入力に与えているので厳密な意味でのQuineではないが、コードをもてあそぶ体験の原型がある。 polyglot自体は[[1985/applin]]で既出だが、繰り返しの処理を自動化するシェルスクリプトをpolyglotとして盛り込んでいるところはポイント高い。 さらに、cc ouroboros.c -o xの文字列がC言語プログラムとして解釈されているところも（単なるマクロ置換ではあるが）面白い。

現代の環境で動かすために、2点の変更を行っている。

• メーラの都合で折り返されていた行をあらかじめ結合した（exコマンドのスクリプトが付属していたがうまく動かなかった）。
• PATHにカレントディレクトリが含まれている前提だったので、./xとした。

パッチ

--- fubar.c +++ fubar.c @@ -4,16 +4,15 @@ #define TT 1 #define cc main(c,v) int c; char **v;{char tt[12],qq[7]; int q=0,o=1,l=1,m=1;struct {int c;} f; #define ouroboros qq[6]='\0';tt[11]='\0';if(QQ==atoi(v[1])+1){(void)fprintf(stderr,"%s factorial = %d\n",v[1], TT);exit(1);}o=c+f -#define x ;while(EOF!=(o=getchar())){if(l && q=='Q' && o=='Q'){l=0;(void)getchar();(void)fread(qq,6,1,stdin);(void)printf("Q %6d",atoi(qq)+1);}else -if(m && q=='T' && o=='T'){m=0;(void)fread(tt,11,1,stdin);(void)printf("T %9d\n",atoi(tt)*QQ);}else {q=o;(void)putchar(o);}}exit(0);} +#define x ;while(EOF!=(o=getchar())){if(l && q=='Q' && o=='Q'){l=0;(void)getchar();(void)fread(qq,6,1,stdin);(void)printf("Q %6d",atoi(qq)+1);}else if(m && q=='T' && o=='T'){m=0;(void)fread(tt,11,1,stdin);(void)printf("T %9d\n",atoi(tt)*QQ);}else {q=o;(void)putchar(o);}}exit(0);} cc ouroboros.c -o x #define zxc ;{/* -cat ouroboros.c | x $1 > x1 +cat ouroboros.c | ./x $1 > x1 if [ $? -ne 0 ]; then exit fi mv x1 ouroboros.c chmod +x ouroboros.c -exec ouroboros.c $1 +exec ./ouroboros.c $1 exit */

パッチをダウンロード