Answer 4.70
parent
ea4a51aca1
commit
ac2b6ae964
|
@ -0,0 +1,24 @@
|
|||
(load "util.scm")
|
||||
(load "misc/sicp-query.scm")
|
||||
|
||||
(initialize-data-base microshaft-data-base)
|
||||
|
||||
(display "\nex-4.70 let-in-add-assertion\n")
|
||||
|
||||
; If we assigned to THE-ASSERTIONS directly then the new stream would reference
|
||||
; itself and we would get an endless stream of the current assertion.
|
||||
(display "[answered]\n")
|
||||
|
||||
(display "\nex-4.71\n")
|
||||
|
||||
; ... continue with 4.4.4.6
|
||||
|
||||
(display "\nex-4.72\n")
|
||||
|
||||
;(display "\nex-4.73\n")
|
||||
;(display "\nex-4.74\n")
|
||||
;(display "\nex-4.75\n")
|
||||
;(display "\nex-4.76\n")
|
||||
;(display "\nex-4.77\n")
|
||||
;(display "\nex-4.78\n")
|
||||
;(display "\nex-4.79\n")
|
|
@ -1,7 +0,0 @@
|
|||
(load "util.scm")
|
||||
(load "misc/sicp-query.scm")
|
||||
|
||||
(initialize-data-base microshaft-data-base)
|
||||
|
||||
(display "\nex-4.70\n")
|
||||
|
Loading…
Reference in New Issue