トップ «前の日(03-22) 最新 次の日(03-24)» 追記

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-03-23

_ [Golf][OCaml]あなごる Hamming

ハミング数、遠くはなされてしまったが 何をすれば縮むのか見当がついていなかった。

  • 素朴に 2,3,5で割りまくって 1 になるかどうかを試した物(123B)
let rec(%)n v=if n/v*v=n then n/v%v else n
let rec(@)i n=i-Obj.magic(i/i=n%5%3%2&()=Printf.printf"%d
"n)@n+1;;read_int()@1
  • マーキングする方法はぱっとしない。

が、書いているうちに気づいた。 でも 83B にならないぞ。あとの 3B はなんだ?

Statistics を比較すると、記号を増やしてもいいからって、アルファベットが減るようなコードにはなってないんだけどなぁ。全く違うのか?

perl で書いたらトップになっちゃったよ。 じゃ、方針は間違ってないのかなぁ。わからぬ。

(追記)perl で詰めたら flaたん(ruby)抜いたよ