Обработка списков в прологе

Создайте предикат, порождающий по заданному натуральному числу N список, состоящий из N случайных натуральных чисел из промежутка от 1 до 100.

Создайте предикат, удваивающий значения элементов списка.

domains
n = integer*
number = integer
predicates
Put(n,n)
clauses
Put([],[]):-!.
Put([H|T],[Z|Y]):-Z=H*2,Put(T,Y).

Создайте предикат, находящий предпоследний элемент списка.

domains
n=integer*
predicates
predposl(n,n)
clauses
predposl([H1,_|[]],[H1]):-!.
predposl([_|T],H1):-predposl(T,H1).

Создайте предикат, вычисляющий скалярное произведение векторов, заданных списками целых чисел.

domains
n = integer*
number = integer
predicates
Put(n,n,number)
clauses
Put([],[],0):-!.
Put([H|T],[X|Y],R):-Put(T,Y,N),R = N + H*X.

Выкладываю еще пару тройку решенных лабораторных работ по прологу.

17 ноября 2009, 04:09