sicp.org: Add Ex. 2.25.

1 files changed, 16 insertions, 0 deletions

diff --git a/sicp.org b/sicp.org
index a2ee7fe..539d147 100644
--- a/sicp.org
+++ b/sicp.org
@@ -514,3 +514,19 @@ creates a list with the squared numbers in a messy nested list like:
                                          /           \
                                         3             4
 #+END_EXAMPLE
+*** 25
+#+BEGIN_SRC scheme
+(define one '(1 3 (5 7) 9))
+
+(car (cdr (car (cdr (cdr one)))))
+#+END_SRC
+#+BEGIN_SRC scheme
+(define two '((7)))
+
+(car (car two))
+#+END_SRC
+#+BEGIN_SRC scheme
+(define three '(1 (2 (3 (4 (5 (6 7)))))))
+
+(car (cdr (car (cdr (car (cdr (car (cdr (car (cdr (car (cdr three))))))))))))
+#+END_SRC