From 06ba373e2fb67fa8e630d445eedc49c66a34df65 Mon Sep 17 00:00:00 2001 From: John Sarkela Date: Fri, 12 Sep 2025 14:20:02 -0400 Subject: [PATCH] updated scheme tests --- homework/hw1/scheme-hw-tests.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/homework/hw1/scheme-hw-tests.rkt b/homework/hw1/scheme-hw-tests.rkt index c0ae37c..581efb4 100644 --- a/homework/hw1/scheme-hw-tests.rkt +++ b/homework/hw1/scheme-hw-tests.rkt @@ -43,7 +43,7 @@ (check-equal? (reduce (lambda (sum each) (+ sum each)) '(1 2 3 4) 0) 10) (check-equal? (reduce (lambda (squares each) (cons (* each each) squares)) '(1 2 3) '()) - '(9 4 1)) )) )) + '(1 4 9)) )) )) (require rackunit/gui) (test/gui hw-tests)