SCIP Practice Set

2.2.7 Deep-reverse

( define (next  x)  (Cond ((not) x) (     pair?) (Car x)) (Cons (deep-reverse (Car x)) (Next (Cdr x    ))) (else  x))) (Define (deep-reverse x)  (reverse (next x) ))

At first I wanted to take a direct approach to a function.

For example, both of these are faulty, and the main problem is that NULL returns are added to the list, resulting in a bias in the end result and expected

(Define (deep-reverse1 x)  (cond (    pair X) (cond ((NULL) (Cdr x)) (Deep-reverse1 (Car x)))             (Else (list (Deep-reverse1 (Cdr x)) (deep-reverse1 (Car x)))))    (else  x))) (Define (deep-reverse2 x)  (Cond    (pair x) (Cond (null? (Cdr x)) (Deep-Reverse2 (Car x)))             (Else (cons (Deep-reverse2 (Cdr x)) (deep-reverse2 (car x    ))))) (else x)))

SCIP Practice Set