kyle
/
sandbox
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Finish ch05 practical.

This commit is contained in:
Kyle Isom 2018-01-18 18:01:08 -08:00
parent 5f9633349c
commit 9bf32e3aa5
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lpn/ch05/practical.pl
View File

@ -34,10 +34,9 @@ min([H|T], N) :-
%% should yield %% should yield
%% Result = [6,21,12] %% Result = [6,21,12]
scalarMult(_, [], []). scalarMult(_, [], []).
scalarMult(K, [H|T], R) :- scalarMult(K, [H|T], [V|R]) :-
V is K * H, V is K * H,
scalarMult(K, T, [R|V]). scalarMult(K, T, R).
%% 3. Another fundamental operation on vectors is the dot product. This %% 3. Another fundamental operation on vectors is the dot product. This
%% operation combines two vectors of the same dimension and yields a %% operation combines two vectors of the same dimension and yields a
@ -51,4 +50,9 @@ scalarMult(K, [H|T], R) :-
%% the query %% the query
%% ?- dot([2,5,6],[3,4,1],Result). %% ?- dot([2,5,6],[3,4,1],Result).
%% should yield %% should yield
%% Result = 32 %% Result = 32
dot([], [], 0).
dot([X|TX], [Y|TY], R) :-
dot(TX, TY, R2),
V is X * Y,
R is R2 + V.