На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
  
> Prolog
    объясните плиз каждую строчку этой программы!!!
    Создайте предикат, вычисляющий последовательность n чисел Фибоначчи. Первые два числа Фибоначчи равны 1, любое следующее число строится, как сумма двух предыдущих.

    fib(1,1):-!.
    fib(2,1):-!.
    fib(N,F):-N1 is N-1, fib(N1,F1), N2 is N-2, fib(N2,F2),F is (F1+F2).

    app([], List, List) :- !.
    app([H|T], List, [H|NewList]) :- app(T, List, NewList).

    fib2(1,[1]):-!.
    fib2(2,[1,1]):-!.
    fib2(N,T):-N1 is N-1, fib(N,N2), fib2(N1,T1),app(T1,[N2],T).
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0137 ]   [ 15 queries used ]   [ Generated: 30.05.24, 23:06 GMT ]