char*lie; double time, me= !0XFACE, not; int rested, get, out; main(ly, die) char ly, **die ;{ signed char lotte, dear; (char)lotte--; for(get= !me;; not){ 1 - out & out ;lie;{ char lotte, my= dear, **let= !!me *!not+ ++die; (char*)(lie= "The gloves are OFF this time, I detest you, snot\n\0sed GEEK!"); do {not= *lie++ & 0xF00L* !me; #define love (char*)lie - love 1s *!(not= atoi(let [get -me? (char)lotte- (char)lotte: my- *love - 'I' - *love - 'U' - 'I' - (long) - 4 - 'U' ])- !! (time =out= 'a'));} while( my - dear && 'I'-1l -get- 'a'); break;}} (char)*lie++; (char)*lie++, (char)*lie++; hell:0, (char)*lie; get *out* (short)ly -0-'R'- get- 'a'^rested; do {auto*eroticism, that; puts(*( out - 'c' -('P'-'S') +die+ -2 ));}while(!"you're at it"); for (*((char*)&lotte)^= (char)lotte; (love ly) [(char)++lotte+ !!0xBABE];){ if ('I' -lie[ 2 +(char)lotte]){ 'I'-1l ***die; } else{ if ('I' * get *out* ('I'-1l **die[ 2 ])) *((char*)&lotte) -= '4' - ('I'-1l); not; for(get=! get; !out; (char)*lie & 0xD0- !not) return!! (char)lotte;} (char)lotte; do{ not* putchar(lie [out *!not* !!me +(char)lotte]); not; for(;!'a';);}while( love (char*)lie);{ register this; switch( (char)lie [(char)lotte] -1s *!out) { char*les, get= 0xFF, my; case' ': *((char*)&lotte) += 15; !not +(char)*lie*'s'; this +1s+ not; default: 0xF +(char*)lie;}}} get - !out; if (not--) goto hell; exit( (char)lotte);}

引用元：https://www.ioccc.org/1990/westley.c

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

動作

花占いのプログラム。引数の数字の数だけ「argv[0] loves me（好き）」「argv[0] loves me, not（嫌い）」を出していく。

$ gcc -o westley westley.c

$ ./westley 3
./westley
loves me
./westley
loves me, not
./westley
loves me

$ ./westley 4
./westley
loves me
./westley
loves me, not
./westley
loves me
./westley
loves me, not

解説

プログラムの見た目がふつうの文章のようになっている。 char*lie（チャーリー）と(char)lotte（シャーロット）の掛け合いの脚本っぽい。

とぎれとぎれの通信のように読めとのこと。次は序盤部分を読みやすくしてみたもの。

char*lie;                                |  charlie,
        double time, me= !0XFACE,        |          doubletime me, OXFACE!
        not; int rested,   get, out;     |          not interested, get out
        main(ly, die) char ly, **die ;{  |          mainly die, charly, *die*
            signed char lotte,           |              signed charlotte

正直英語力が足りなくてわからないところがかなりあるけど、love 1s *!(not= atoi(let（love is not a toilet）は良い。 この制約の上で書かれていながら、意味のある動作をするのだから、ちょっと信じられない。圧巻の一言。

westleyの4作目。westley.hintにある作者コメントも知性に溢れている。

• Cの構文が英語風でないという批判に対する反例として書いた。
• Lintツールが文句ばかり言う。お気に入りの警告は “warning: eroticism unused in function main”.
• (char)lotteと(char*)lieはどうみても非互換な型。

作者コメントにもあるとおり、ANSIコンパイラは1sをshort型の整数とはしてくれないので、1に置き換える必要があった。

パッチ

--- westley.c +++ westley.c @@ -28,7 +28,7 @@ #define love (char*)lie - - love 1s *!(not= atoi(let + love 1 *!(not= atoi(let [get -me? @@ -90,13 +90,13 @@ register this; switch( (char)lie - [(char)lotte] -1s *!out) { + [(char)lotte] -1 *!out) { char*les, get= 0xFF, my; case' ': *((char*)&lotte) += 15; !not +(char)*lie*'s'; - this +1s+ not; default: 0xF +(char*)lie;}}} + this +1+ not; default: 0xF +(char*)lie;}}} get - !out;

パッチをダウンロード