From 6b34745c4287464a030f2b255ece126494eada54 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sat, 16 Jul 2016 18:29:05 +0000 Subject: some progress on ex. 1. 10. --- sicp.org | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 60 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3