2016年9月22日木曜日

開発環境

  • OS X El Capitan - Apple (OS)
  • Emacs(Text Editor)
  • Scheme (プログラミング言語)
  • kscheme (ksi)(github) (処理系)

計算機プログラムの構造と解釈[第2版](ハロルド エイブルソン (著)、ジュリー サスマン (著)、ジェラルド・ジェイ サスマン (著)、Harold Abelson (原著)、Julie Sussman (原著)、Gerald Jay Sussman (原著)、和田 英一 (翻訳)、翔泳社、原著: Structure and Interpretation of Computer Programs (MIT Electrical Engineering and Computer Science)(SICP))の第1章(手続きによる抽象の構築)、1.3(高階手続きによる抽象)、1.3.3(一般的方法としての手続き)、問題1.35.を取り組んでみる。

その他参考書籍

問題1.35.

f( 1+ 5 2 )=1+ 1 1+ 5 2 =1+ 2 1+ 5 = 3+ 5 1+ 5 = ( 3+ 5 )( 1 5 ) 15 = 2+2 5 4 = 1+ 5 2

コード(Emacs)

(begin
  (load "procedures.scm")
  (newline)
  (define (p x) (display x) (newline))

  (define tolerance 0.00001)
  (define (fixed-point f first-guess)
    (define (close-enough? v1 v2)
      (< (abs (- v1 v2)) tolerance))
    (define (try guess)
      ((lambda (next)
         (if (close-enough? guess next)
             next
             (try next)))
       (f guess)))
    (try first-guess))

  (define (f x)
    (+ 1 (/ 1 x)))

  (define a (fixed-point f 1.0))
  (define b (/ (+ 1 (sqrt 5)) 2))
  (p a)
  (p b)
  (p (abs (- a b)))
  'done)

入出力結果(Terminal(kscheme), REPL(Read, Eval, Print, Loop))

$ ksi  < sample35.scm
ksi> 
1.618032786885246
1.618033988749895
1.201864649136297e-06
=> done
ksi> $

0 コメント:

コメントを投稿

Comments on Google+: