Implement 3.5 and 3.6

2020-12-13 12:26:22 -05:00
parent 5c39a8d48f
commit 5d589e3923
4 changed files with 161 additions and 82 deletions
--- a/util.scm
+++ b/util.scm
@@ -53,3 +53,9 @@
      (op (car sequence)
          (fold-right op initial (cdr sequence)))))

+; From exercise 3.5
+(define (random-in-range low high)
+  (let ((range (- high low)))
+    (+ low (random range))))
+
+'util-loaded