Programacao em Scheme

[Fcena]

basicamente, o que vocês querem é este codigo

Código:

(define (transforma n)
      (if (odd? n)
          (* 3 n)
          (expt n 2)))

(define (soma n)
    (cond ( (or (not (integer? n))
                (<= n 0))
            (error "inserir n inteiro positivo"))
          ( (= n 1) (transforma n))
          (else (+ ((soma (- n 1)) (transforma n))))))

(define (soma-aux n soma-ac)
    (cond ( (or (not (integer? n))
                (<= n 0))
            (error "inserir n inteiro positivo"))
          ( (= n 1) (+ (transforma n) soma-ac))
          (else (soma-aux (- n 1) (+ soma-ac (transforma n))))))
(define (soma n) (soma-aux n 0))

Isto foi o trabalho de casa de Fp ... LEIC alameda

Cumprimentos