Skip to content

Latest commit

 

History

History
45 lines (37 loc) · 492 Bytes

1.09.md

File metadata and controls

45 lines (37 loc) · 492 Bytes

問題 1.9 解答

1

(define (+ a b)
  (if (= a 0)
    b
    (inc (+ (dec a) b))))
(+ 4 5)
(inc (+ 3 5))
(inc (inc (+ 2 5)))
(inc (inc (inc (+ 1 5))))
(inc (inc (inc (inc (+ 0 5)))))
(inc (inc (inc (inc 5))))
(inc (inc (inc 6)))
(inc (inc 7))
(inc 8)
9

プロセスは再帰的である。

2

(define (+ a b)
  (if (= a 0)
    b
    (+ (dec a) (inc b))))
(+ 4 5)
(+ 3 6)
(+ 2 7)
(+ 1 8)
(+ 0 9)
9

プロセスは反復的である。