![]() |
Модераторы: Poseidon |
![]() ![]() ![]() |
|
Michail008 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 27.11.2008 Репутация: нет Всего: нет |
Помогите пожалуйста с заданием,очень нужно!
Любая информация пригодится. Задание простое, а я нифига не понимаю)) Вот задание: Напишите метаинтерпретатор для подсчёта числа вызовов процедуры в некоторой программе на Прорлоге. Надо определитьпредикат count(+Цель,+P,-N), который при своём вызове вычисляет "цель" (любая допустимая цель) и считает, сколько раз вызывался предикат с именем P. Литература Стерлинг Л., Шапиро Э. Искусство программирования на языке ПРОЛОГ, М.: Мир, стр.238-245. |
|||
|
||||
aga |
|
|||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 29.11.2008 Репутация: нет Всего: нет |
тупо, но действенно:
что-нибудь типа р(...):- retract(chislovyzovovP©), Count=C+1, assert(chislovyzovovP(Count)), !, p_realny(....).... P_realny(...) -- делает, что р() должен делать.... а в count(...), или вообще где только нужно, всегда можно chislovyzovovP(Число) подобрать... Только на самом запуске треба assert(chislovyzovovP(0)) где-нибудь запихнуть.... хоть первым в "гоул" плюс вилочки: все вызовы? или только успешные? или только неуспешные? по обстановке: пихаем все эти "ретракты" и "ассерты" туда куда надо... да chislovyzovovP(...) можно с целой кучей аргументов (успешные, неуспешные и прочая) объявлять. синтакс от турбо 2.0, кстати с уважением пока "пока" |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Центр помощи" | |
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Центр помощи | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |