8 lines
256 B
Text
8 lines
256 B
Text
| ?- create_protocol(statep, [], [public(state/1)]),
|
|
findall(
|
|
Id,
|
|
(integer::between(1, 10, N),
|
|
create_object(Id, [implements(statep)], [], [state(N)])),
|
|
Ids
|
|
).
|
|
Ids = [o1, o2, o3, o4, o5, o6, o7, o8, o9, o10].
|