sicp

sicp sandbox.
git clone git://git.ricketyspace.net/sicp.git
Log | Files | Refs

commit 6b34745c4287464a030f2b255ece126494eada54
parent bd26d42331f13a469e8a9525a7289207c8da17e0
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 16 Jul 2016 18:29:05 +0000

some progress on ex. 1. 10.

Diffstat:
sicp.org | 61++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 60 insertions(+), 1 deletion(-)

diff --git 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