Advertisement
cardel

FDP EJemplo 4

Feb 22nd, 2021
3,428
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.61 KB | None | 0 0
  1. ;;Autor: Carlos A Delgado
  2. ;;Fecha 22 de Feb de 2021
  3. ;;Contrato: sumar-lista: lista de numeros -> numero
  4. ;;Descripción: Esta función toma los elementos de una lista y los suma
  5. ;;Ejemplo
  6. ;;(cons 2 (cons 3 (cons 4 (cons 5 (cons 6 empty)))) 20
  7. ;;(cons 3 (cons 6 (cons 9 empty))) 18
  8. ;;empty   0
  9. (define (sumar-lista lst)
  10.   (cond
  11.     [(empty? lst) 0]
  12.     [else
  13.      (+
  14.       (first lst)
  15.       (sumar-lista (rest lst))
  16.       )]))
  17.  
  18. (check-expect (sumar-lista (cons 2 (cons 3 (cons 4 (cons 5 (cons 6 empty)))))) 20)
  19. (check-expect (sumar-lista (cons 3 (cons 6 (cons 9 empty)))) 18)
  20. (check-expect (sumar-lista empty) 0)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement