so what

2007-04-01

問題1.17

SICP

僕の解答

(define (even? n)
	(= (remainder n 2) 0))

(define (double n)
	(* n 2))

(define (halve n)
	(/ n 2))

(define (times a b)
	(cond ((= b 0) 0)
	      ((even? b)
	       (times (double a) (halve b)))
	      (else
	       (+ a (times a (- b 1))))))

こんな感じかな?

解答例

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

所感

doubleの位置が違うなぁ。でも、同じ結果になるのは掛け算だからかな?

winebarrel 2007-04-01 00:00

問題1.17
この記事をはてなブックマークに追加
Tweet
  • もっと読む
コメントを書く
« 問題1.16 問題1.18 »
プロフィール
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 | ブログを報告する

スターをつけました

引用をストックしました

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

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

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

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