The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



"ЯОС - прототип безопасной русскоязычной операционной системы на базе проекта A2"
Версия для распечатки Пред. тема | След. тема
Форум Разговоры, обсуждение новостей
Исходное сообщение [ Отслеживать ]
Присылайте удачные настройки в раздел примеров файлов конфигурации на WIKI.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


Ответить | Правка | Наверх | Cообщить модератору

Оглавление
ЯОС - прототип безопасной русскоязычной операционной системы на базе проекта A2, opennews, 14-Дек-21, 09:19  [смотреть все]
Форумы | Темы | Пред. тема | След. тема



Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру