  |
なにしようとしているのかさっぱりわからね。
つーか、ぐねぐねしてて…なんかperlって感じ。
for($i = 2; $i <= ($s+1) / 2; $i++){
単純なはなしだけど、ループの中で計算させないほうがいいよ。
$i <= ($s+1) / 2
たいしたあれじゃないけどね、毎度評価されるから。
あと
if($ox[$s] ne '' and length $ox[$s] < $min){
とか
XXX ne ''
とかここらへんもなんか同じことをずいぶん繰り返しているようにみえる。
@oo[2, 5, 8, 11] = ('&#8201;', '&nbsp;', '&ensp;', ' ');$xx[5] = ' ';for($s=4; $s < 201; $s++){ for($i = 2; $i <= ($s+1) / 2; $i++){ next if $i == 3; $j = $s - $i; &amp;test_base($i, $j); &amp;test_base($j, $i) if $i <...
なにしようとしているのかさっぱりわからね。 つーか、ぐねぐねしてて…なんかperlって感じ。 for($i = 2; $i <= ($s+1) / 2; $i++){ 単純なはなしだけど、ループの中で計算させないほうがい...
任意ドット幅の空白を少ないバイト数で生成したい。＆ｅｎｓｐ；は２ドット以下略。しかし特殊ルールがあって、半角空白は連続できない。また行頭の空白も無視されることもあって、...
全然perlっぽくないよ！！ perl的にはforeach！map！and/or！って感じ。 別にperl的でなくてよいけどね。 気になった点 スコープが不明確。やっぱりmyは使うべき。 関数呼び出しに＆はいら...
アルゴリズムはそれで良いと思うが実装はまだまだ綺麗に書けるし高速化もできる。
十分なお礼ができないから独学でがんばるか http://anond.hatelabo.jp/20080508000230
18
