#lang racket (require rackunit) (require racket/trace) (provide superreverse) ;; superreverse ;; inputs: ;; output: ;; using higher-order functions (no raw recursion) (define (superreverse L) 0) ; additional tests ; provided tests (check-equal? (superreverse '( (1 2 3) (4 5 6) (#\k #\o #\o #\l) (#\a #\m) )) '( (3 2 1) (6 5 4) (#\l #\o #\o #\k) (#\m #\a) ) ) (check-equal? (superreverse '( (1 2 3) (4 5 6 (7 8) 9 ) )) '( (3 2 1) (9 (7 8) 6 5 4) ) )