15 lines
363 B
Text
15 lines
363 B
Text
{def negoi
|
|
{lambda {:n}
|
|
{let { {:n :n}
|
|
{:h {+ {S.map {lambda {:k} {/ 1 :k}} {S.serie 1 :n}}} }
|
|
{:a {log {+ :n 0.5 {/ 1 {* 24 :n}}}}} // Negoi, 1997
|
|
} {div}-> Hn :h
|
|
{div}gamma {- :h :a}
|
|
{div}k :n
|
|
}}}
|
|
-> negoi
|
|
|
|
{negoi 400}
|
|
-> Hn 6.5699296911765055
|
|
gamma 0.5772156645765731 with k = 400
|
|
(0.57721566457657 target)
|