$ scheme48 > ,load ex1.scm > (sum-of-min-two 1 2 3) 3 > (sum-of-min-two 2 1 3) 3 > (sum-of-min-two 1 1 3) 2 > (sum-of-min-two 1 3 1) 2 > ,exit $
$ scheme48 > ,load ex2.scm > (triangle? 1 2 3) #f > (triangle? 1.2 2 3) #t > (right-tri? 3 4 5) #t > (right-tri? 4 5 3) #f > (right-tri? -3 4 5) #f > (area-of-right-tri 3 4 5) 6.0 > (area-of-right-tri 13 5 12) 30.0 > (area-of-right-tri 6 6 6) 0 > ,exit $
$ scheme48 > ,load ex4.scm > (sum-seq 1 11 3) 22 > (sum-seq 11 1 3) 0 > (sum-seq 11 1 -3) 26 > (sum-seq 11 13 -1) 0 > (sum-seq 11 11 3) 11 > (sum-seq 11 11 -3) 11 > ,exit $
$ scheme48 > ,load ex7.scm > (cont-frac (lambda (i) 1.0) (lambda (i) 1.0) 100) 0.6180339887498948 > (pi 0.001) 3.141463414634146 > (pi 0.0001) 3.1415888250921244 > (pi 0.0000000000001) 3.141592653589791 > ,exit $
--prompt--> scheme48 > ,load ex7-nth-root.scm > (nth-root (fast-expt 2 16) 8) 4.0 > (nth-root (fast-expt 2 32) 16) 4.0 > (nth-root (fast-expt 2 100) 50) 3.9999999986136436 > (nth-root (fast-expt 5 10) 10) 4.9999999992832524 > ,exit --prompt-->
$ scheme48 > ,load ex10-pre.scm > (preorder '(a)) (a) > (preorder '(a (b) (c))) (a b c) > (preorder '(a (b (c) (d)) (e))) (a b c d e) > ,exit $
$ scheme48 > > (sublist '(0 1 2 3 4) 1 3) '(1 2 3) > (sublist '(0 1 2 3 4) 0 2) '(0 1) > (sublist '(0 1 2 3 4) 1 0) '() > (sublist '(0 1 2 3 4) 4 2) '(4) > (sublist '(0 1 2 3 4) 4 1) '(4) > (sublist '(0 1 2 3 4) 5 2) '() > (sublist '(0 1 2 3 4) 2 5) '(2 3 4) > ,exit $
$ scheme48 > ,load ex12-mk-monitor.scm > > (define plus (make-monitored +)) ; no values returned > (plus 1 2 3) 6 > (plus 1) 1 > (plus 2 3) 5 > (plus 'how-many-calls?) 3 > ,exit $