Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (require test-engine/racket-tests)
- ; Calcula el producto de dos números (antes decía suma, cosas del sueño)
- ; number number -> number
- (define (prod-aux n1 n2)
- (* n1 n2))
- ; Devuelve una lista con el producto
- ; elemento a elemento de cada una de las listas
- ; pasadas como parámetros
- ; ej: (prod-vec '(1 2 3) '(4 5 6)) -> (4 10 18)
- ; list list -> list
- (define (prod-list lista1 lista2)
- (map prod-aux lista1 lista2))
- ; Suma los elementos de una lista;
- ; ej: (sum '(1 2 3 4 5)) -> 15
- ; list -> number
- (define (suma lista)
- (foldl + 0 lista))
- ; Realiza el producto punto entre dos listas
- ; list list -> number
- (define (producto-punto lista1 lista2)
- (suma (prod-list lista1 lista2)))
- ; Preparamos tests
- (check-expect
- (producto-punto '(3 4 -1) '(1 -2 -3))
- -2)
- (check-within
- (producto-punto '(0.3 0.5) '(8 2))
- 3.4
- 0.1)
- (check-expect
- (producto-punto '() '())
- 0)
- ; Ejecutamos tests
- (test)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement