Необходимо пояснение к программе (актуально сегодня-завтра)

24.03.2011, 13:17. **Показов** 1204. **Ответов** 3

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

Программка не сложная, задана в универе - необходимо построчно объяснить преподу что и как работает, помогите, плиз!

Prolog

domains
  list=integer*
predicates
  mult (list,integer)
goal
  write("Исходный список[-2,2,2,-7,5]"),nl,
  mult([-2,2,2,-7,5],1).
clauses
  mult([],X):- !,
    write("Произведение положительных элементов= ",X).
  mult([X|Y],Partial):- 
    X>0,
    Z=Partial*X,
    mult(Y,Z).
  mult([_|Y],Partial):-
    mult(Y,Partial).

@Грымзик · 24.03.2011, 13:39

Как-то странно получается, сначала пишите "не сложная", а потом "помогите". Она действительно не сложная, что именно Вам не понятно?

24.03.2011, 13:46

мне в основном про рекурсию, если не сложно

Сообщение от Грымзик

Как-то странно получается, сначала пишите "не сложная", а потом "помогите". Она действительно не сложная, что именно Вам не понятно?

@Грымзик · 24.03.2011, 13:51

Да там все про рекурсию
mult([X|Y],Partial):-X>0,!, если первый элемент положительный
(отсечение тут нужно)
Z=Partial*X, то текущий результат (произведение положительных элементов,
встречавшихся до этого) домножаем на первый элемент
mult(Y,Z). и рекурсивно продолжаем смотреть хвост
mult([_|Y],Partial):- из-за отсечения сюда попадаем
только если первый элемент не положительный, поэтому
нас его значение не интересует
mult(Y,Partial). мы просто продолжаем смотреть хвост

@Грымзик 2505 / 1480 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	24.03.2011, 13:39	2
	Как-то странно получается, сначала пишите "не сложная", а потом "помогите". Она действительно не сложная, что именно Вам не понятно? 0

unidentified
	24.03.2011, 13:46	3
	мне в основном про рекурсию, если не сложно Сообщение от Грымзик Как-то странно получается, сначала пишите "не сложная", а потом "помогите". Она действительно не сложная, что именно Вам не понятно?

@Грымзик 2505 / 1480 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	24.03.2011, 13:51	4
	Да там все про рекурсию mult([X\|Y],Partial):-X>0,!, если первый элемент положительный (отсечение тут нужно) Z=Partial*X, то текущий результат (произведение положительных элементов, встречавшихся до этого) домножаем на первый элемент mult(Y,Z). и рекурсивно продолжаем смотреть хвост mult([_\|Y],Partial):- из-за отсечения сюда попадаем только если первый элемент не положительный, поэтому нас его значение не интересует mult(Y,Partial). мы просто продолжаем смотреть хвост 1