From 8826ebf796e3a4c550c534203383e341060cd6e5 Mon Sep 17 00:00:00 2001 From: Steve Lee Date: Fri, 2 Dec 2016 00:03:15 +0800 Subject: update --- SICP/ch2_2_2.scm | 1 + SICP/tmp.scm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'SICP') diff --git a/SICP/ch2_2_2.scm b/SICP/ch2_2_2.scm index ca83c07..fbcf46d 100644 --- a/SICP/ch2_2_2.scm +++ b/SICP/ch2_2_2.scm @@ -28,6 +28,7 @@ (car (cdr (car (cdr (car (cdr (car (cdr (car (cdr (car (cdr (list 1 (list 2 (list 3 (list 4 (list 5 (list 6 7)))))))))))))))))) ;; Exercise 2.26 +(define z (list 1 1 1)) (define x (list 1 2 3)) (define y (list 4 5 6)) diff --git a/SICP/tmp.scm b/SICP/tmp.scm index ca83c07..9bcc810 100644 --- a/SICP/tmp.scm +++ b/SICP/tmp.scm @@ -32,7 +32,7 @@ (define y (list 4 5 6)) (append x y) -(car (car (cons x y))) +(car (car (cons x y) )) (car (car (list x y))) (car (cdr (cons x y))) -- cgit v1.2.3