SICP Exercise 4.7

nested-lets.scm

(define (let*->nested-lets clauses)
  (if (null? (car clauses))
      (cadr clauses)
      (list 'let (list (caar clauses))
            (let*->nested-lets (cons (cdar clauses)
                                     (cdr clauses))))))


1 ]=> (let*->nested-lets '(((x 3) (y (+ x 2)) (z (+ x y 5))) (* x z)))

;Value 18: (let ((x 3)) (let ((y (+ x 2))) (let ((z (+ x y 5))) (* x z))))