You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
sicp-all-tasks/sicp/4_002e53

16 lines
341 B

Exercise 4.53: With permanent-set! as
described in Exercise 4.51 and if-fail as in Exercise 4.52,
what will be the result of evaluating
(let ((pairs '()))
(if-fail
(let ((p (prime-sum-pair
'(1 3 5 8)
'(20 35 110))))
(permanent-set! pairs
(cons p pairs))
(amb))
pairs))