トップ «前の日記(2007-01-15) 最新 次の日記(2007-02-08)» 編集

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-07 [長年日記]

_ [Golf][OCaml] Anarchy Golf

世界の一流プロに紛れた素人感バリバリですが、m.ukai で参加してます。 Perl では勝てそうにないので、参加数の少ない OCaml で ;-)

stderr に何を吐いても問題ないので、stdin を読みすぎて例外 End_of_file で終わってよい。

echo

exec ごめんなさい。使わなければ 44byte。

e

Nums 使うと 148B (+ #load ディレクティブもいるのでもっと長くなる) なのでどうにも戦いにならない。

delete blank lines

最初は while ループでその時点のトップ記録にあと 1byte がなじょだったが、やりかた変えたら抜けた。

tennis

まだ短くなる気はする。

99 shinichiroes of hamaji

Printf.printf だけで長いよもう。三項演算子も if then else になるから長いよもう。

even lines

delete blank lines と同じような戦略。

これは Perl でもやってみたが 19B。1バイトいったい何が削れるんだ?