From b746240d7716a818a8b3e01a1fa41290107be723 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 22 Apr 2011 13:01:34 -0400
Subject: [PATCH] added man-or-boy test

---
 test-browser-evaluate.rkt | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/test-browser-evaluate.rkt b/test-browser-evaluate.rkt
index 502397a..c3b761d 100644
--- a/test-browser-evaluate.rkt
+++ b/test-browser-evaluate.rkt
@@ -481,7 +481,22 @@ EOF
       
 
 
-
+;; Knuth's Man-or-boy-test.
+;; http://rosettacode.org/wiki/Man_or_boy_test
+(test '(begin (define (A k x1 x2 x3 x4 x5)
+		(letrec ([B (lambda ()
+			   (set! k (- k 1))
+			   (A k B x1 x2 x3 x4))])
+		  (if (<= k 0)
+		      (+ (x4) (x5))
+		      (B))))
+	      (displayln (A 10
+			    (lambda () 1) 
+			    (lambda () -1) 
+			    (lambda () -1)
+			    (lambda () 1) 
+			    (lambda () 0))))
+      "-67\n")