Do ex 2.2 and 2.3

2020-10-24 11:24:13 -04:00
parent 1a8a806f35
commit 69e6d171d4
2 changed files with 60 additions and 0 deletions
--- a/util.scm
+++ b/util.scm
@@ -10,4 +10,6 @@
 (define (gcd a b)
  (if (= b 0) (abs a) (gcd b (remainder a b))))

+(define (average a b) (/ (+ a b) 2.0))
+
 ;(assert (gcd 93 15) 3)