From 6c4fc9cd7b016b9d11522b0f2f48c61f07a8d4c1 Mon Sep 17 00:00:00 2001
From: Jim Pryor <profjim@jimpryor.net>
Date: Sat, 27 Nov 2010 22:57:06 -0500
Subject: [PATCH] ass8 tweaks

Signed-off-by: Jim Pryor <profjim@jimpryor.net>
---
 assignment8.mdwn | 25 -------------------------
 1 file changed, 25 deletions(-)

diff --git a/assignment8.mdwn b/assignment8.mdwn
index 1cc31eee..0b53578a 100644
--- a/assignment8.mdwn
+++ b/assignment8.mdwn
@@ -131,28 +131,3 @@
 		(same-fringe? tree1 tree2)
 
 
-<!--
-		(define (lazy-flatten tree)
-		  (letrec ([helper (lambda (tree tailk)
-		                  (cond
-		                    [(pair? tree)
-		                      (helper (car tree) (lambda () (helper (cdr tree) tailk)))]
-		                    [else (cons tree tailk)]))])
-		    (helper tree (lambda () (list)))))
-		
-		(define (stream-equal? stream1 stream2)
-		  (cond
-		    [(and (null? stream1) (null? stream2)) #t]
-		    [(and (pair? stream1) (pair? stream2))
-		     (and (equal? (car stream1) (car stream2))
-		          (stream-equal? ((cdr stream1)) ((cdr stream2))))]
-		    [else #f]))
-		
-		(define (same-fringe? tree1 tree2)
-		  (stream-equal? (lazy-flatten tree1) (lazy-flatten tree2)))
-		
-		(define tree1 '(((1 . 2) . (3 . 4)) . (5 . 6)))
-		(define tree2 '(1 . (((2 . 3) . (4 . 5)) . 6)))
-		
-		(same-fringe? tree1 tree2)
--->
-- 
2.11.0