Обьединить два списка так, чтобы их элементы чередовались - Prolog
Формулировка задачи:
Добрый день! Помогите пожалуйста. Нужно обьеденить два списка, что-бы их элементы чередовались. Например
[1,3,5,7] и [4,8,10,11] должно получится как [1,4,3,8,5,10,7,11]
Решение задачи: «Обьединить два списка так, чтобы их элементы чередовались»
textual
Листинг программы
domains
int=integer
intl=int*
predicates
zip(intl,intl,intl)
get_list(intl)
start
clauses
zip([],X,X).
zip(X,[],X).
zip([H1|T1],[H2|T2],[H1,H2|T]) :- zip(T1,T2,T).
get_list([H|T]):-readint(H),H>0,!,get_list(T).
get_list([]).
start :- write("Enter the first list (0-end)"),nl,get_list(L1),
write("Enter the second list (0-end)"),nl,get_list(L2),
zip(L1,L2,R),nl,write("Result: "),write(R),nl.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д