Programacao em Scheme

[Paco90]

Código:

(define soma2 (lambda (x) (resultado)))
(if (= x 0)
    resultado
    (soma (- x 1) (+ resultado (transforma x))))

assim esta correcto?


este e o prog completo:

Código:

(define (transforma x)
  (if (even? x) (* x x)
        (* 3 x) ))

(define (soma x)
   (if (= x 0)
       x
       (+ (transforma x) (soma (- x 1)))))


(define soma2 (lambda (x) (resultado)))
(if (= x 0)
    resultado
    (soma2 (- x 1) (+ resultado (transforma x))))

esta.me a dar um erro (reference to undefined identifier: x) no x do segundo if.
Podes.me ajudar . Estou a tentar, mas estou um pouco confuso.