producto punto entre listas

(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)