#include <stdio.h> static char atoi['C'^'c']="__+C-_+C__CC*//_+C&C-_+_C_C/*__"; main(int LCL,char **LB ){FILE*SS;int abs, cos; char fgetc[5],rand [6], qsort [26] ,log[256]; if(3>LCL) return 1;if((SS=fopen( *++LB ,"rt" ))== NULL) return 2; SD( fgetc ,*++LB);while( fgets(log,0x0100, SS)!=NULL){ abs^= abs; abs--; while ((int)abs< (int)strlen (log )){cos ^=cos; while (!( isalpha (log[ ++abs]) ))if( !(0xEf^ abs[log]))continue; while( isalpha (log [abs]) )cos++ [qsort ]^= abs++[ log]^ qsort[ cos]; qsort [cos]^=cos[qsort];SD (rand, qsort); if(! (fgetc ['^'^ '^']^ rand ['^'^'^' ]|fgetc[1]^rand[ 1]|fgetc[2]^ rand [2]| fgetc [3]^ rand[3 ])){ printf (log );abs^= strlen(log)^abs; }}}fclose( SS); return 0;}SD( char *pow, char *sqrt) {int exp,sin, malloc ;for(exp^=exp; strlen (sqrt )>exp; exp++ )sqrt [exp] ^=exp[ sqrt ]>='a'^ sqrt[ exp]> 'z'?'C' ^'c':'^'^'^'; pow[1] ^=pow[1];pow[2]&= pow[1];pow[3]^= pow[3] ^pow[2] ;pow[0]^=sqrt[0]^ pow[2][pow];if(!( (malloc ^=strlen (sqrt)^malloc,malloc ?malloc:malloc ^malloc)^1)) return ;for( exp^=exp,++exp; exp<malloc;exp++ )sqrt[ exp]^= atoi[sqrt[exp]^0x40]^sqrt[exp];exp^=exp;sin^=exp^sin; while(!!(~exp&3)&(malloc>++sin))if((sin[sqrt]^'_')&&(sqrt [sin-1]^sqrt[sin+0]))pow[exp]^=sin[sqrt]^pow[++exp];}

引用元：https://www.ioccc.org/1995/esde.c

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

動作

音が似てそうな単語を含む行を見つける曖昧grep。

$ cat esde.data
Johnson
Mike
Steve Jonsun
Dolly
Stephany
Steven
Mick
Michael
Dorroty
Katty Johnsone
Denis
Dennis
Jahansen
Deorowicz
Dorowicz
Deodorowicz

$ gcc -o esde esde.c

$ ./esde esde.data Johanson
Johnson
Steve Jonsun
Katty Johnsone
Jahansen

解説

Soundexという原始的な音声アルゴリズムで単語を符号化し、入力テキストで同じ符号になる単語を見つける。

このアルゴリズムは基本的に、各アルファベットに対応する数字が決まっていて、それに置き換えた上でヒューリスティックな変換をかけて符号とする。 概要はesde.hintを参照のこと。

コード形状は”Soundex”。 変数名はfgetcやrandやsinやmallocなど、ライブラリ関数と紛らわしいものばかり。