読者になる

ブログのおんがえし

2008-02-23

問題1.18

SICP回答

1.17の反復プロセス版を作れ

(define (fast-mul2 a b)
  (define (iter a b total)
    (cond ((= b 0) total)
	  ((even? b) (iter (double a) (halv b) total))
	  (else (iter a (- b 1) (+ total a)))))
  (iter a b 0))
  
(define (double x) (ash x 1))

(define (halv x) (ash x -1))

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

tuto0621 2008-02-23 00:42

この記事をはてなブックマークに追加
Tweet
広告を非表示にする
  • もっと読む
コメントを書く
« 問題1.19 問題1.17 »
ABOUT
id:tuto0621

iOSのRubyプログラム環境PictRuby、電子書籍検索エンジンHonyomi、FirefoxプラグインFireLinkなどを作っています。

読者です 読者をやめる 読者になる 読者になる
@ongaeshiをフォロー
このブログについて
検索
POPULAR
NEW ENTRY
  • Ruby on Browser 1.0 リリース Ruby on Browser 1.0 リリース
  • Ruby On BrowserとRuby WASM/WASIの雑感 Ruby On BrowserとRuby WASM/WASIの雑感
  • gifアニメにお絵描きできるGifDrawerをリリースしました gifアニメにお絵描きできるGifDrawerをリリースしました
  • 残りゲーム体力が少なくてもブラウザゲームをRubyで簡単に書きたい 残りゲーム体力が少なくてもブラウザゲームをRubyで簡単に書きたい
  • Humankindを読んでニュースの読み方を変えた Humankindを読んでニュースの読み方を変えた

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

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

はてなブログをはじめる(無料)
はてなブログとは
ブログのおんがえし ブログのおんがえし

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

引用をストックしました

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

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

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

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