From 4ccf736c24421e0e412da2e345c0d72d7a98ce30 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sat, 2 Feb 2019 14:30:42 -0500 Subject: sicp.org: Add Ex. 2.25. --- sicp.org | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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 -- cgit v1.2.3