(test filter
(equal? (filter (lambda (x) (= x 2))
'(1 2 3))
'(2))
(equal? (filter (lambda (x) (and (>= x 30)
(< x 60)))
(range-list 0 100))
(range-list 30 60)))
(test reverse
(equal? (reverse '(1 2 3 4 5))
'(5 4 3 2 1))
(equal? (reverse (reverse (range-list 0 100)))
(range-list 0 100)))
(test elem?
(elem? 5 (range-list 0 10))
(nil? (elem? 5 (range-list 0 3))))
(test all?
(all? (lambda (x) (<= 1 x)) (range-list 1 10))
(not (all? (lambda (x) (< x 10)) (range-list 1 11))))
(test any?
(any? (lambda (x) (= x 9)) (range-list 0 10))
(not (any? (lambda (x) (= x 9)) (range-list 0 9))))