Implement exercises till 2.6

2020-10-25 21:40:51 -04:00
parent 69e6d171d4
commit c4fbf3dabe
4 changed files with 103 additions and 5 deletions
--- a/util.scm
+++ b/util.scm
@@ -11,5 +11,6 @@
  (if (= b 0) (abs a) (gcd b (remainder a b))))

 (define (average a b) (/ (+ a b) 2.0))
+(define (id n) n)
+(define (inc n) (+ n 1))

-;(assert (gcd 93 15) 3)