so what

2007-03-17

問題1.8

SICP

僕の解答

こんな感じかな…

(define (improve guess x)
	(/ (+ (/ x (* guess guess)) (* 2 guess)) 3))

(define (good-enough? x guess)
	(< (abs (- (* guess guess guess) x)) 0.001))

(define (cubic-iter guess x)
	(if (good-enough? x guess)
	    guess
	  (cubic-iter (improve guess x)
		     x)))

(define (cubic x)
	(cubic-iter 1.0 x))


(display (cubic 8))
(newline)

解答例

  • http://oss.timedia.co.jp/show/SICP/ex-1.8
  • http://www.csus4.net/hiki/SICPReading/?naoya_t+%28naochan%29#l84

所感

good-enough?は改良版を使ってるなぁ。

winebarrel 2007-03-17 00:00

問題1.8
この記事をはてなブックマークに追加
Tweet
  • もっと読む
コメントを書く
« 問題1.7 link:IBM JavaScript での有限状態マシン »
プロフィール
id:winebarrel id:winebarrel はてなブログPro
検索
リンク
  • Twitter
  • Bitbucket
  • GitHub
最新記事
  • RailsでMySQLのEXPLAINのやばそうなキーワードに色をつけるやつ
  • Aurora/RDS用プロダクション→ステージング レプリケーションツールを書いた
  • SpringOnion: Railsの遅そうなEXPLAINをログ出力するgem
  • CSVとかTSVをJSON LinesにするツールをGoとRustで書いた
  • qrnというDBベンチマークツールを作った
月別アーカイブ

はてなブログをはじめよう!

winebarrelさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?

はてなブログをはじめる(無料)
はてなブログとは
so what so what

Powered by Hatena Blog | ブログを報告する

スターをつけました

引用をストックしました

引用するにはまずログインしてください

引用をストックできませんでした。再度お試しください

限定公開記事のため引用できません。

読者です 読者をやめる 読者になる 読者になる