No Such Blog or Diary

最近の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 っていったいどうやってんだろう？　もう少し頭をひねってみやう．

ちらほらやっているがAGE 1986(MEISTER)の火星がクリアできず．完全勝利もポセイドンとウラノスのみなのでまだまだ．やっぱりワープを使いこなさないとだめなのかなぁ．なにはともあれもっと練習が必要らしい．

Nucleus は pre タグとかの中にまで改行を入れてくれる仕様なのでコードとかをpreタグで書くとおかしくなる．応急処置として pre タグ内の br を invisible にしてごまかしているが根本的な解決は難しそう．NoBreak のプラグイン入れても記事の書きなおしが必要なので面倒だし…　HTMLを吐き出す部分に自分で手を入れるしかないのだろうか？