forum.opennet.ru

Составление сообщения

Исходное сообщение

"ЯОС - прототип безопасной русскоязычной операционной системы..."
Отправлено Аноним, 15-Дек-21 14:14

> Разве что var(Phrase) малость всё портит.
Не стал искать причину, почему в yap нельзя "показать следующее решение?" без переменных в запросе, вставил "fail".
Вот так будет "канонично" и почти так, как было задуманно:

start(Palindrome) :-
  ( Phrase = "я иду съ мечемъ судия"
  | Phrase = " жоп па "
  | Phrase = "я разуму уму заря    "
  ),
  phrase((filter_whitespace, palindrome), Phrase),
  atom_codes(Palindrome, Phrase).
?- start(Palindrome).
Palindrome = 'я иду съ мечемъ судия' ? ;
Palindrome = 'я разуму уму заря    ' ? ;
no

Исходное сообщение
"ЯОС - прототип безопасной русскоязычной операционной системы..." Отправлено Аноним, 15-Дек-21 14:14
> Разве что var(Phrase) малость всё портит. Не стал искать причину, почему в yap нельзя "показать следующее решение?" без переменных в запросе, вставил "fail". Вот так будет "канонично" и почти так, как было задуманно: start(Palindrome) :- ( Phrase = "я иду съ мечемъ судия" \| Phrase = " жоп па " \| Phrase = "я разуму уму заря " ), phrase((filter_whitespace, palindrome), Phrase), atom_codes(Palindrome, Phrase). ?- start(Palindrome). Palindrome = 'я иду съ мечемъ судия' ? ; Palindrome = 'я разуму уму заря ' ? ; no

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> Разве что var(Phrase) малость всё портит. > Не стал искать причину, почему в yap нельзя "показать следующее решение?" без > переменных в запросе, вставил "fail". > Вот так будет "канонично" и почти так, как было задуманно: > [code] > start(Palindrome) :- > ( Phrase = "я иду съ мечемъ судия" > \| Phrase = " жоп па " > \| Phrase = "я разуму уму заря > " > ), > phrase((filter_whitespace, palindrome), Phrase), > atom_codes(Palindrome, Phrase). > ?- start(Palindrome). > Palindrome = 'я иду съ мечемъ судия' ? ; > Palindrome = 'я разуму уму заря ' ? ; > no > [/code]
	Введите код, изображенный на картинке:

При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру