Показать сообщение отдельно
  (#2 (permalink)) Старый
MarinN MarinN вне форума
Member
 
Аватар для MarinN
 
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.10.2010
По умолчанию 27.10.2010, 23:04

без рекурсии:
main([X|Xs],[H|Hs]):-
lenght([X|Xs],N),
lenght([H|Hs],M),
N=M.
с рекурсией:
main([X|Xs],[H|Hs]):-
proc1([X|Xs],[H|Hs],0,0).

proc1([X|Xs],[H|Hs],I1,I2):-
proc1(Xs,Hs,I1+1,I2+1).
proc1([],[],I1,I2):-I1=I2.
Ответить с цитированием
Ads