Prolog. Скалярное произведение векторов

[City]

Добрый день! Помогите пожалуйста написать следующую программу на прологе:
Необходимо вычислить скалярное произведение векторов, заданных списками.
Заранее спасибо!

P.S>Как я понимаю одним списком надо задавать координаты одного вектора а другим списком другого, потом их перемножать их и складывать.

[Xaositect]

City в сообщении #210727 писал(а):

P.S>Как я понимаю одним списком надо задавать координаты одного вектора а другим списком другого, потом их перемножать их и складывать.

Ну да
Это будет примерно так:

scalar([],[],0).
scalar([X|T],[Y|U],S) :- scalar(T, U, P), S is (P+X*Y).

[City]

Спасибо!