No Such Blog or Diary

電車使って秋葉へ繰り出して，sed本を少し立読みして何も買わずに帰ってきた．その後一旦家へ戻り，おもむろに自転車で白山やら上野やらへ買い物に…　電車賃の無駄でしかない．

新しい問題が増えてたので sed で挑戦．とりあえず 1 から 100 までループでインクリメントするカウンタを書いて，それに３周期と５周期のカウンタをくっつけてみた．これに出力の整形部分を書いて 169バイト．ここから縮めるには大き目の書き換えが必要なのでとりあえずこれで出しておく．

最近のsubmit状況を見たかったのでテキトウに一行書いてみた．

ddd=`awk 'BEGIN{print strftime("%y/%m/%d %H:%M:%S",systime()-3600*24)}'`;awkprog='BEGIN{FS="<>";c=0;}{if($5!=""){if($5 <"'$ddd'"){next}else{r[c]=sprintf("%2d %-15s %4d %s %s",$1,$2,$3,$5,$6);c=c+1;}}else{if(c>0){print n;for(i=0;i<c;i++){print r[i];}print"";};c=0;n=$0;}}';for i in `cat index.html | grep '<li><a href' | sed -e 's|<li><a.*"\(.*\)">\([^<]*\)<.*|http://golf.shinh.org/\1@\2|' | sed -e 's/ /,/g'`; do h=${i%%@*}; n=${i##*@}; wget -q -O temp.html $h; echo "== "$n" ==" | sed 's/,/ /'; cat temp.html | awk '/[0-9]*\/[0-9]*\/[0-9]*/{print}/a href/&&!/tati|Sample|Rank|return/{print}' | sed -e 's#\(<tr>\|</td>\|<td>\)\+#<>#g' -e 's| */ *|/|g' -e 's/^<>\|<>$//g' -e 's/<h3>\([^<]*\).*/\1/' | awk "$awkprog"; done

過去一日以内のsubmitを抜き出してくる．ぼけた頭で組んだので sed にいったり awk にいったりぐちゃぐちゃ．そして transpose も 80bytes から縮まない．別のアルゴリズムでやらないとだめなもよう…

Smileys Triangle(40), tennis(229), permutater(118) は一位．delete blank lines(5), even lines(4), invert case(24), delete last line(2), rotate lines(8)は一位タイ．e(102), ultimate problem(3), Fibonacci Numbers(292), exit status(16) は埋め込みで一位タイ．Hamming Numbers(382), show the way(85) は埋め込みで…．そして 99 shinichiroes of hamaji は抜かれてるなぁ．もうすこしがんばろう．そういや最近(cheat)を明示するような動きになっているようなので次からはちゃんと書こう．

とりあえず頭からつぶしていって hello world と echo は１位に並んだ．これらは答えがひとつしかなさそうなのでこれ以上は縮まないでしょう．次の 99 shinichiroes of hamaji は haskell で一位と13バイト差．もう少し頭使えば縮みそうだけど抜本的改革が必要なので断念．sed のコードのほうは暫定で最小コード達成．二位とは1バイト差なので微妙．とりあえず sed で一位になったので少々満足．

面白そうなので Haskell と sed で参加してみる．いくつか解いてみたけど最小コードを追い抜けたものは今のところなし．prime numbers の Haskell で 66 っていったいどうやってんだろう？　もう少し頭をひねってみやう．