diff options
| author | Steve Lee <me@xiangyangli.com> | 2016-12-02 00:03:15 +0800 |
|---|---|---|
| committer | Steve Lee <me@xiangyangli.com> | 2016-12-02 00:03:15 +0800 |
| commit | 8826ebf796e3a4c550c534203383e341060cd6e5 (patch) | |
| tree | 5c3b5c9ee4298032497ad6406a64fa2787507027 /SICP | |
| parent | 4e260f58e9826bff7d241d6f847a29817c95268e (diff) | |
| download | Personal-8826ebf796e3a4c550c534203383e341060cd6e5.tar.xz Personal-8826ebf796e3a4c550c534203383e341060cd6e5.zip | |
update
Diffstat (limited to 'SICP')
| -rw-r--r-- | SICP/ch2_2_2.scm | 1 | ||||
| -rw-r--r-- | SICP/tmp.scm | 2 |
2 files changed, 2 insertions, 1 deletions
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))) |