トップ «前の日記(2007-02-19) 最新 次の日記(2007-02-21)» 編集

U-memo

2006|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|08|
2009|08|10|
2010|02|03|
2011|11|12|
2012|04|
2016|02|
All= / Today= / Yesterday=

2007-02-20 [長年日記]

_ [Golf][OCaml] あなごる e Num版

kskさんが Num 版でエントリ されてたので 1B 抜くまでがんばった。

_ [Golf][OCaml] あなごるねたばらし

shinh さんのところ(2007-02-20)で幾つか情報が出たのでー。

ただし permutater は見ない。がんばるもん。

blank.ml

予想通りの 1B 差。そこから 1B 縮むんです。誰かが到達した時点でネタばらししましょう。

even.ml

全く同じ。

csort.ml

同じ 92B なのにずいぶんと違うこと。

open List let rec l x=try l(input_char stdin::x)with _->iter print_char(sort compare x);;l[]

トップはどうなってるのかさっぱり分かりません。

prime.ml

アルゴリズムが違いますねー。 shinh さんは素数をリストに蓄え込んでますが、私は純粋な試し割りです (自分自身未満の全てを扱う)。 119B だったころの記録をさらしておきます。

let rec f r j i=r>0&j<2&(Printf.printf"%d
"i;f(r-1)i(i+1))||j>1&i/j*j=i&f r i(i+1)||i/j*j<i&f r(j-1)i;;f(read_int())1 2

あらあら、shinh さんのからいじると 113B になってしまいますよ、奥様。

# 以前さらした mod の書き換え以外にも縮むネタがあります。これはまだネタばれしません。ヒント:入力が 1 のときに期待の動作にならなくなります。

inv.ml

昨日書いた 通りマニュアルを良く読むと、 っていうか input_char で止まらずにもう少し読むと、 魔法を使う必要が無いことに気づく罠。

while 1=1do print_char(Char.chr(input_byte stdin lxor 32))done

本日のツッコミ(全2件) [ツッコミを入れる]
_ うんの (2007-02-20 13:20)

w3m では、はじめっからネタばれしちゃいますね。<br><br>RSS はどうなっているのかなと思って見ましたが、thunderbird では隠れてました。ボタン押しても隠れっぱなしですが。<br>RSS リーダ一般ではどうなんでしょうね。(CSS だのみなので、危険はあると思う)

_ うかい (2007-02-20 13:25)

それがプラグインの仕様なのですー。<br><br>Javascript 非対応 -> ソース直読みしかない<br>CSS 非対応 -> 最初からネタばれ