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)