12,673
回編集
差分
ナビゲーションに移動
検索に移動
> > 486
> > (+ 137 349)
> > (* 5 99)
> > (+ 21 35 12 7)
> > (+ (* 3 5) (- 10 6))
> > (define size 2) > > size
> > (define (square x) (* x x)) > > (square 2)
> > (define (abs2 x) (cond ((> > x 0) x)
> > (abs2 0)
> > (define (abs3 x) (cond ((< < x 0) (- x))
> > (define (abs4 x) (if (< < x 0)
編集の要約なし
==Scheme==
[[Racket]]
{{amazon|489471163X}}
*http://mitpress.mit.edu/sicp/
*式(expression)を入力すると解釈系は応答してその式を評価した(evaluating)結果を表示する
=====整数を与えると、応答を印字=====
486
=====手続き(+や*など)と組み合わせて合成式とし、手続きの作用を表現=====
486
495
====組合せ、演算子、被演算子、引数====
=====利点=====
*任意の引数をとる手続きを許す
75
*組合せを入れ子にする(nested)ことを許す
19
*オブジェクトを値(value)とする変数(variable)を識別するのものが名前
*defineで名前付け
2
===組合せと評価===
=====二乗を表すsquare という合成手続き(compund procedure)を作る=====
4
===条件式と述語===
====場合分け(case analysis)====
*cond 場合分けを記述する特殊形式
((= x 0) 0)
((< < x 0) (- x)))) > > (abs2 -19)
19
0
*特殊記号 else を利用できる
(else x)))
*場合分けが2つの場合、特殊形式の if を利用できる
(- x)
x))
!論理合成演算
|-
|(and <<e1> > ... <<en>>)
|-
|(or <<e1> > ... <<en>>)
|-
|(not <<e>>)
|-
|}
(define (square x) (* x x))
(define (good-enough? guess x)
(< < (abs (- (square guess) x)) 0.001))
(define (improve guess x)
(average guess (/ x guess)))
(define (average a b) (/ (+ a b) 2))
(define (good-enough? guess)
(< < (abs (- (* guess guess) x)) 0.001))
(define (improve guess)
(average guess (/ x guess)))
© 2006 矢木浩人
