Зарефакторить решения по фидбеку

[ashikov]

2.60 и 2.61 добавлена библиотека для поддержки true и false (они есть из коробки в sicp, а в racket/base отсутствуют), рабочее решение, также можно было поменять true и false на #t и #f

2.59 там кроме уже упомянутых true и false отличается подход к решению - решение нормальное и рабочее, при разных подходах будет отличаться порядок элементов.

В качестве альтернативы вместо жесткой проверки на порядок элементов в списке
(check-equal? (union-set first second) '(0 2 9 10 1 19 5 50))
можно проверить его длину

(define result (union-set first second))
(check-equal? (length result) 8)

то, что он не упорядочен
(check-not-equal? result '(0 1 2 5 9 10 19 50))

и то что в нем есть все элементы (поскольку элементов 8 и проверок разных элементов 8 - элементы уникальны)

(check-not-equal? (member 0 result) #f)
(check-not-equal? (member 2 result) #f)
(check-not-equal? (member 9 result) #f)
(check-not-equal? (member 10 result) #f)
(check-not-equal? (member 1 result) #f)
(check-not-equal? (member 19 result) #f)
(check-not-equal? (member 5 result) #f)
(check-not-equal? (member 50 result) #f)

Origin: #1442