Создайте предикат, порождающий по заданному натуральному числу 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