From 54cfe3ef338fefe93a8f49eed3207905e1d0f35c Mon Sep 17 00:00:00 2001
From: Correl Roush <correl@gmail.com>
Date: Sun, 1 Jun 2014 20:58:14 -0400
Subject: [PATCH] Fixup 1.2 work

---
 1-2.org | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/1-2.org b/1-2.org
index a2f0be7..8c74c25 100644
--- a/1-2.org
+++ b/1-2.org
@@ -84,13 +84,13 @@ layout: org
 
    #+BEGIN_SRC scheme
      (A 1 10)
-     24
+     1024
 
      (A 2 4)
-     536
+     65536
 
      (A 3 3)
-     536
+     65536
    #+END_SRC
   
    Consider the following procedures, where `A' is the procedure
@@ -113,7 +113,8 @@ layout: org
    --------------------------------------------------------------------
   
    `(f n)' computes 2n
-   `(g n)' computes ...
+   `(g n)' computes 2^n
+   `(h n)' computes 2^h(n - 1)
 
 * 1.2.2: Tree Recursion
 
@@ -189,8 +190,8 @@ layout: org
      (define (pascal row column)
        (cond ((= column 1) 1)
              ((= row column) 1)
-             (#t (+ (pascal (- row 1) (- column 1))
-                    (pascal (- row 1) column)))))
+             (else (+ (pascal (- row 1) (- column 1))
+                      (pascal (- row 1) column)))))
    #+END_SRC
 
 ** Exercise 1.13