No logro resolver este ejercicio si alguien me puede dar una mano

producto(cuaderno,30).
producto(lapiz,10).
producto(goma,8).
producto(compaz,25).

compra(marta,producto(cuaderno,2)).
compra(marta,producto(lapiz,1)).
compra(tere,producto(compaz,1)).

usando clausulas de horn y findall determinar cuanto gasto una persona

Esto debería servir para lo que pedís, fijate si lo entendés:

 cuantoGasto(Persona, Total):-

	compra(Persona, _),

	findall(Precio, (compra(Persona, producto(Nombre, Cantidad)),

			         producto(Nombre, PrecioUnitario),

			         Precio is Cantidad * PrecioUnitario),

			         ListaPrecios),

	sumlist(ListaPrecios, Total).

funcionaaaaaaa graciaaas me siento un nabo jajajajaj odio prolog

fede, ¿aprendiste algo con esa respuesta?

Che Gan, podrías explicarme el ejemplo que pusiste? Muchas gracias.