Обьединить два списка так, чтобы их элементы чередовались - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
