Создайте предикат, вычисляющий последовательность n чисел Фибоначчи

@Дмитрий3Б · Регистрация: 06.06.2013

Студворк — интернет-сервис помощи студентам

объясните плиз каждую строчку этой программы!!!
Создайте предикат, вычисляющий последовательность 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).

@Gulzada · 02.11.2013, 22:49

Сообщение от Дмитрий3Б

объясните плиз каждую строчку этой программы!!!
Создайте предикат, вычисляющий последовательность 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).

Можете ответить, правильный ли этот код?
и можете показать, что именно и куда писать (predicates, clauses, goal)???

@Дмитрий3Б 0 / 0 / 0 Регистрация: 06.06.2013 Сообщений: 48
		1
	Создайте предикат, вычисляющий последовательность n чисел Фибоначчи 08.06.2013, 17:10. Показов 2003. Ответов 1 Метки нет (Все метки) объясните плиз каждую строчку этой программы!!! Создайте предикат, вычисляющий последовательность 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

@Gulzada 0 / 0 / 0 Регистрация: 03.10.2013 Сообщений: 7
	02.11.2013, 22:49	2
	Сообщение от Дмитрий3Б объясните плиз каждую строчку этой программы!!! Создайте предикат, вычисляющий последовательность 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). Можете ответить, правильный ли этот код? и можете показать, что именно и куда писать (predicates, clauses, goal)??? 0

Опции темы