ha-tan https://blog.hatena.ne.jp/ha-tan/ 趣味的にっき https://ha-tan.hatenadiary.org/ Haskell ニュートン法で平方根を求める-数学アルゴリズム演習ノート-を参考にニュートン法で平方根を求めるプログラムを書いてみました。do {...} whileのループが、head $ dropWhileになりました。 module Main (main) where sqr :: Double -> Double sqr c = let x = head $ dropWhile (\ x -> x * x < c) [1.0, 2.0 ..] in foldr (\ _ x -> (x + c / x) / 2.0) x [1 .. 10] main :: IO () main = do print … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fha-tan.hatenadiary.org%2Fentry%2F20061010%2F1160480039" title=" ニュートン法で平方根を求める - 趣味的にっき" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2006-10-10 20:33:59 rich https://ha-tan.hatenadiary.org/entry/20061010/1160480039 1.0 100%