From a394d0140222bb7939cbcf3f27f2ad6ca0b7f1d7 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sat, 23 Jul 2016 15:56:24 +0000 Subject: finish ex. 1.10. --- sicp.org | 9 +++++++++ 1 file changed, 9 insertions(+) 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)= -- cgit v1.2.3