1 files changed, 9 insertions, 0 deletions
diff --git a/sicp.org b/sicp.org
index 9508aa9..4611cb2 100644
--- a/sicp.org
+++ b/sicp.org
@@ -268,3 +268,12 @@ is ~A = 2x2^y~.
 (A 1 2^65536)
 2^(2^65536)
 #+END_SRC
+**** mathematical definitions for
+***** (define (f n) (A 0 n))
+=(f n)= computes  =(* 2 n)=
+***** (define (g n) (A 1 n))
+=(g n)= computes  =(expt 2 n)=
+***** (define (h n) (A 2 n))
+=(h n)= computes  =(expt 2 (h (1- n)))=
+***** (define (k n) (* 5 n n))
+=(k n)= computes  =(* 5 n n)=