added man-or-boy test

2011-04-22 13:01:34 -04:00 · 2011-04-22 13:01:34 -04:00 · b746240d77
commit b746240d77
parent 44beaffea6
1 changed files with 16 additions and 1 deletions
--- 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")