Answer 4.70
This commit is contained in:
24
ex-4_70-79.scm
Normal file
24
ex-4_70-79.scm
Normal file
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user