Sumatorias

(define (sumar-hasta-n n)

  (cond

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

  )

)

(sumar-hasta-n 5)

(define (sumar-en-lista lista)
  (cond
    ((null? lista) 0)
    (else
     (+ (car lista) (sumar-en-lista (cdr lista)))
    )

  )

)

(sumar-en-lista '(1))