Фибоначи и функция Акермана на ПРОЛОГе

:-[ Help!!!  
Кто-нибудь представляет как должны выглядеть Фибоначи и Акерман на Прологе????
Поделитесь с глупой девушкой  :-/

Глупые девушки таких злобных вопросов не задают  ;D

Откуда такой раритет откопали- ПРОЛОГ. ;D

2GrAnd: почему раритет? )) Нам в прошлом году в институте полгода сначала Lisp читали, а другие полгода Prolog

Просто довольно специфический, узконаправленный язык. Тем более с ЛИСПОМ встречался довольно часто, а вот с ПРОЛОГМ - пардоньте не видался давно (хотя то же нам его читали) :-/ :-/ :-/

Вообще-то, Пролог - самый используемый язык для искусственного интеллекта (но вы наверное это и без меня знали!), а никакой не раритет!!!
А вот, хотите ещё задачку? (хотя, скорее всего не хотите...  :(  )
   S E N D
+  M O R E
----------
M O N E Y
Надо написать програмку, чтобы она подбирала замену буковкам.

Для самого простого и самого долгого метода достаточно принять метод прямого перебора все цифр для каждой буквы. ;D ;D ;D Для ускорения добавить учет неповторяемости цифр (каждой букве одна цифра). Вопрос в том, что надо - Получить правильное решение,  или решить наиболее оптимальным методом. ;D ;D ;D

Хе-хе, это всё я и сама знаю. Проблема в том что я не знаю как это выразить на прологе?!  :(   А вы всё смеётесь....

Опять ты о ПРОЛОГЕ.
Организовываешь циклы для каждой буквы от 0 до 9 и подставляешь в данное выражение и проверяешь его правильность. В ПРОЛОГЕ наверное есть же циклы и условные операторы.
P.S.
А улыбаюсь я всем с кем разговариваю ;D ;D ;D

Циклы в прологе только рекурсивные... (чтоб их...) И вообще тут всё как-то сложно и не так как везде (или это мне только так кажется)  Ну да ладно, как-нибудь осилим
Жалко только такой прекрасный солнечный день проводить за подобной ...  :(
НО все равно спасибо  ;D ;D ;D

Цитата Натали, 21.05.02, 16:26:55

Жалко только такой прекрасный солнечный день проводить за подобной ...  

Эх, Наташа... не ту ты профессию себе выбрала

Если есть адресок в почте - оставь, через пару часов вспомню, что нам давали по ПРОЛОГУ и скину. ;D ;D ;D

Да нет, это по началу трудно (надеюсь  :-/ ...) А вообще проффесия, она хорошая
Адресс: nataly99999@hotmail.com
И спасибо пребольшущее заранее

Будем думать ;D ;D ;DТолько за пивом сбегаю

Кажись так должно быть.

РЕБУС (0,0,0,0,0,0,0,0).
РЕБУС (S,E,N,D,M,O,R,Y):-integer(S),S<9,S is S+1,
                  integer(E),E<9,E is E+1,
                  integer(N),N<9,N is N+1,
                  integer(D),D<9,D is D+1,
                  integer(M),M<9,M is M+1,
                  integer(O),O<9,O is O+1,
                  integer(R),R<9,R is R+1,                        
                  integer(Y),Y<9,Y is Y+1,
                       1000*(S+M)+100*(E+O)+10*(N+R)+D+E=
                       10000*M+1000*O+100*N+10*E+Y
                             write(S,E,N,D,M,O,R,Y),
                       РЕБУС(S,E,N,D,M,O,R,Y).

Хотя может память мне и изменяет.
Ну и геморррой этот ваш ПРОЛОГ ;D ;D ;D