solution to 2.71
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 16 Sep 2010 20:02:21 +0000 (01:32 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 16 Sep 2010 20:02:21 +0000 (01:32 +0530)
src/sicp/ex2_71.rkt [new file with mode: 0644]

diff --git a/src/sicp/ex2_71.rkt b/src/sicp/ex2_71.rkt
new file mode 100644 (file)
index 0000000..d33eba4
--- /dev/null
@@ -0,0 +1,30 @@
+#lang racket
+
+(require "ex2_69.rkt")
+
+(define (range min max (step 1))
+  (if (>= min max)
+      '()
+      (cons min (range (+ min step) max step))))
+
+;; n = 5
+(define tree5 (for/list ((x (range 0 5))
+                         (a '(A B C D E)))
+                (list a (expt 2 x))))
+
+(generate-huffman-tree tree5)
+#|
+Most frequently used symbol is E and has the code 1
+Least frequently used symbol is A and has the code 0000
+|#
+
+;; n = 10
+(define tree10 (for/list ((x (range 0 10))
+                          (a '(A B C D E F G H I J)))
+                 (list a (expt 2 x))))
+
+(generate-huffman-tree tree10)
+#|
+A - 000000000
+J - 1
+|#
\ No newline at end of file