Самое ТруЪ-решение Задачи-К -- это решение на языке К от самого Трурля:
O:"+-*/"; o:(+;-;*;_%)
split:{(&x _in\\: y)_ x}
mkr:{:[(x<W)&(y<H);"ref[",($y),";",($x),"]";`badref]}
mkv:{x}
mka:{:[x _sm "[a-z][0-9]"; mkr[(_ic*x)-97; (_ic x[1])-49]
x _sm "[A-Z][0-9]"; mkr[(_ic*x)-65; (_ic x[1])-49]
x _sm "[0-9]*"; mkv[x]; `err]}
mkf:{t:split["+",1_ x;O]; `form, +{(o[O?*x]; mka[1_ x])}'t}
parse: {:[x~"";`; *x _sm "[0-9]*"; 0$x;(*x)="'"; 1_ x; (*x)="="; mkf[x]; `err]}
read:{in: {1_'split["\\t",x;,"\\t"]}'0: x; wh:0$*in; W::wh[0]; H::wh[1]; S::parse''1 _ in}
show:{x 0:{x,"\\n",y}/{x,"\\t",y}/'$S}
ref:{if[~4:S[x;y]; force[x;y]]; S[x;y]}
force:{t:S[x;y]; if[`eval~*t; S[x;y]:`cycle]; if[`form~*t; S[x;y;0]:`eval; S[x;y]:eval[t]]}
apply:{y[x;z]}
eval:{a: .:'x[2];:[&/1={4:x}'a; apply/[0;x[1];a]; `err]}
read[`in];(!W)force'\\:!H;show[`out]
Метрика: 16 locs, 47 симв/стр, в сжатом виде 570 байта, в распакованном 782 байт, коэф. сжатия 1.372
