summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--sicp.org61
1 files changed, 60 insertions, 1 deletions
diff --git a/sicp.org b/sicp.org
index 38e7106..9508aa9 100644
--- a/sicp.org
+++ b/sicp.org
@@ -207,5 +207,64 @@ is ~A = 2x2^y~.
2^16 = (expt 2 16) = 65536
#+END_SRC
-
**** (A 3 3)
+#+BEGIN_SRC scheme
+(A 3 3)
+(A 2 (A 3 2))
+(A 2 (A 2 (A 3 1)))
+(A 2 (A 2 2))
+(A 2 (A 1 (A 2 1)))
+(A 2 (A 1 2))
+(A 2 (A 0 (A 1 1)))
+(A 2 (A 0 2))
+(A 2 4)
+(A 1 (A 2 3))
+(A 1 (A 1 (A 2 2)))
+(A 1 (A 1 (A 1 (A 2 1))))
+(A 1 (A 1 (A 1 2)))
+(A 1 (A 1 (A 0 (A 1 1))))
+(A 1 (A 1 (A 0 2)))
+(A 1 (A 1 4))
+(A 1 (A 0 (A 1 3)))
+(A 1 (A 0 (A 0 (A 1 2))))
+(A 1 (A 0 (A 0 (A 0 (A 1 1)))))
+(A 1 (A 0 (A 0 (A 0 2))))
+(A 1 (A 0 (A 0 4)))
+(A 1 (A 0 8))
+(A 1 16)
+2^16 = (expt 2 16) = 65536
+#+END_SRC
+
+**** (A 2 5)
+
+#+BEGIN_SRC scheme
+(A 2 5)
+(A 1 (A 2 4))
+(A 1 (A 1 (A 2 3)))
+(A 1 (A 1 (A 1 (A 2 2))))
+(A 1 (A 1 (A 1 (A 1 (A 2 1)))))
+(A 1 (A 1 (A 1 (A 1 2))))
+(A 1 (A 1 (A 1 (A 0 (A 1 1)))))
+(A 1 (A 1 (A 1 (A 0 2))))
+(A 1 (A 1 (A 1 4)))
+(A 1 (A 1 16))
+(A 1 65536)
+2^65536
+#+END_SRC
+
+**** (A 2 6)
+
+#+BEGIN_SRC scheme
+(A 2 6)
+(A 1 (A 2 5))
+(A 1 (A 1 (A 2 4)))
+(A 1 (A 1 (A 1 (A 2 3))))
+(A 1 (A 1 (A 1 (A 1 (A 2 2)))))
+(A 1 (A 1 (A 1 (A 1 (A 1 (A 2 1))))))
+(A 1 (A 1 (A 1 (A 1 (A 1 2)))))
+(A 1 (A 1 (A 1 (A 1 4))))
+(A 1 (A 1 (A 1 16)))
+(A 1 (A 1 65536))
+(A 1 2^65536)
+2^(2^65536)
+#+END_SRC