CommonLisp Scheme Part13 - 暇つぶし2ch

CommonLisp Scheme Part13 at TECH

245:デフォルトの名無しさん
05/06/07 11:58:44
>>240
過剰なお褒め、恐縮です。というか、気恥ずかしいです
でも、自分でも思った以上にエレガントだなと、思っていたり
ちなみに、Cでもやってみました
CでやるなんてlazyというよりCrazyかとおもったけど
書いてみたら、非常に簡単でした

struct tarai { int x, y; const struct tarai* tp; };

int tarai_sub(int x, int y, const struct tarai* tp) {
　if (x > y) {
　　int z = tarai_sub(tp->x, tp->y, tp->tp);
　　struct tarai t[3] = { { z, z, 0 }, { x, x, 0 }, { y, y, 0 } };
　　struct tarai tz = { z-1, x, t+2 };
　　return tarai_sub(tarai_sub(x-1,y,t), tarai_sub(y-1,z,t+1), &tz);
　}
　return y;
}

int tarai(int x, int y, int z) {
　struct tarai tz = { z, z, 0 };
　return tarai_sub(x, y, &tz);
}

C++よりも、速いっぽい

次ページ

続きを表示

1を表示