Add missing GCD example in 1.2.5

This commit is contained in:
Correl Roush 2014-06-11 23:49:03 -04:00
parent 26d06cd99f
commit 6a4656f85a

View file

@ -375,7 +375,13 @@ layout: org
#+END_SRC #+END_SRC
* 1.2.5: Greatest Common Divisors * 1.2.5: Greatest Common Divisors
#+begin_src scheme :tangle yes
(define (gcd a b)
(if (= b 0)
a
(gcd b (remainder a b))))
#+end_src
** Exercise 1.20 ** Exercise 1.20
The process that a procedure generates is of The process that a procedure generates is of
course dependent on the rules used by the interpreter. As an course dependent on the rules used by the interpreter. As an