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

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

_ [Golf][OCaml] あなごる (URL変更)

順列のアルゴリズムなー、と、無い頭を使って考えていたら、 フィボナッチでぬかれてしまったので、現実逃避の逃避(*1) で追い抜き返す。ワンライナーになったような。

(*1) あなごる自体が現実逃避の一環であるため

競争相手がいてくれるとやる気が出るというものです。

# 現実逃避から戻れないとも言う

なお、e のまじめ版はこんな感じ。(141Bになった)

open Num let u=Int 1 let rec e p i k=if p>99then u-/u else
k+/(e(p+1)(i+/u)(k//i));;print_string(String.sub(approx_num_exp
101(e 1u u))3 101)

(追記) 実際には #load"nums.cma" がいるな

_ [Golf][OCaml] あなごる フィボナッチ

64B っていったいなんだー!?

# 記号がやけに多いのと空白がほとんど無いのと...なんだろう。 短くマジックナンバーを生成できるネタがある?