solutions to ex 3.1, 3.2, 3.3 and 3.4
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sun, 2 Jan 2011 17:05:35 +0000 (22:35 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sun, 2 Jan 2011 17:05:35 +0000 (22:35 +0530)
src/sicp/ex3_1.rkt [new file with mode: 0644]
src/sicp/ex3_2.rkt [new file with mode: 0644]
src/sicp/ex3_3.rkt [new file with mode: 0644]
src/sicp/ex3_4.rkt [new file with mode: 0644]

diff --git a/src/sicp/ex3_1.rkt b/src/sicp/ex3_1.rkt
new file mode 100644 (file)
index 0000000..4bd1ef9
--- /dev/null
@@ -0,0 +1,7 @@
+#lang racket
+
+(define (make-accumulator acc)
+  (lambda (val)
+    (begin
+      (set! acc (+ acc val))
+      acc)))
\ No newline at end of file
diff --git a/src/sicp/ex3_2.rkt b/src/sicp/ex3_2.rkt
new file mode 100644 (file)
index 0000000..de275ef
--- /dev/null
@@ -0,0 +1,29 @@
+#lang racket
+
+(define (make-monitored f)
+  (let ((num-calls 0))
+    (lambda (x)
+      (cond 
+        ((eq? x 'how-many-calls?) num-calls)
+        (else 
+         (begin
+           (set! num-calls (+ num-calls 1))
+           (f x)))))))
+
+#|
+> (define (square x) (* x x))
+> (square 4)
+16
+> (define mf (make-monitored square))
+> (mf 'how-many-calls?)
+0
+> (mf 10)
+100
+> (mf 'how-many-calls?)
+1
+> (mf 100)
+10000
+> (mf 'how-many-calls?)
+2
+> 
+|#
\ No newline at end of file
diff --git a/src/sicp/ex3_3.rkt b/src/sicp/ex3_3.rkt
new file mode 100644 (file)
index 0000000..0f6b79e
--- /dev/null
@@ -0,0 +1,19 @@
+#lang racket
+
+(define (make-account balance password)
+  (define (withdraw amount)
+    (if (>= balance amount)
+        (begin (set! balance (- balance amount))
+               balance)
+        "Insufficient funds"))
+  (define (deposit amount)
+    (set! balance (+ balance amount))
+    balance)
+  (define (dispatch given-password m)
+    (if (eq? given-password password)
+        (cond ((eq? m 'withdraw) (lambda (amt) (withdraw amt)))
+              ((eq? m 'deposit) (lambda (amt) (deposit amt)))
+              (else (error "Unknown request -- MAKE-ACCOUNT"
+                           m)))
+        (lambda (temp) "Incorrect password")))
+  dispatch)
\ No newline at end of file
diff --git a/src/sicp/ex3_4.rkt b/src/sicp/ex3_4.rkt
new file mode 100644 (file)
index 0000000..ac8e334
--- /dev/null
@@ -0,0 +1,48 @@
+#lang racket
+
+(define (make-account balance password)
+  (define (withdraw amount)
+    (if (>= balance amount)
+        (begin (set! balance (- balance amount))
+               balance)
+        "Insufficient funds"))
+  (define (deposit amount)
+    (set! balance (+ balance amount))
+    balance)
+  (let ((bad-password-count 0))
+    (define (dispatch given-password m)
+      (if (eq? given-password password)
+          (cond ((eq? m 'withdraw) (lambda (amt) (withdraw amt)))
+                ((eq? m 'deposit) (lambda (amt) (deposit amt)))
+                (else (error "Unknown request -- MAKE-ACCOUNT"
+                             m)))
+          (lambda (temp) 
+            (begin
+              (set! bad-password-count (+ bad-password-count 1))
+              (if (>= bad-password-count 7)
+                  "Something is wrong. Calling 911..."
+                  "Incorrect password")))))
+    dispatch))
+
+#|
+
+> (define acc (make-account 100 'secret-password))
+> ((acc 'secret-password 'withdraw) 40)
+60
+> ((acc 'some-other-password 'deposit) 50)
+"Incorrect password"
+> ((acc 'some-other-password 'deposit) 50)
+"Incorrect password"
+> ((acc 'some-other-password 'deposit) 50)
+"Incorrect password"
+> ((acc 'some-other-password 'deposit) 50)
+"Incorrect password"
+> ((acc 'some-other-password 'deposit) 50)
+"Incorrect password"
+> ((acc 'some-other-password 'deposit) 50)
+"Incorrect password"
+> ((acc 'some-other-password 'deposit) 50)
+"Something is wrong. Calling 911..."
+> 
+
+|#
\ No newline at end of file