Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- wymnoz([H|T],Wyniki) :- wymnoz(H,Wyniki,T,T),!.
- wymnoz(_,[],[],[]).
- wymnoz(_,Wyniki,[],[H|T]) :- wymnoz(H,Wyniki,T,T).
- wymnoz(H,Wyniki,[H2|T],X) :-
- W is H * H2,
- select(W,Wyniki,Wyniki2),
- wymnoz(H,Wyniki2,T,X).
Add Comment
Please, Sign In to add comment