Cuadrados en Scheme

(define (sumar-cuadrados-hasta-n n)

  (cond

    ((zero? n) 0)
    (else
     (+ (* n n) (sumar-cuadrados-hasta-n (- n 1)))
    )

  )

)

(sumar-cuadrados-hasta-n 3)

(define (sumar-cuadrados-en-lista-hasta-n lista)
  (cond
    ((null? lista) 0)
    (else
     (+ (* (car lista) (car lista)) (sumar-cuadrados-en-lista-hasta-n (cdr lista)))
    )

  )

)

(sumar-cuadrados-en-lista-hasta-n '(1 2 3))