Как выполнить append N раз? - Prolog

Формулировка задачи:

Не получается реализовать append,который будет выполняться N раз, что я делаю не так?

result(_,_,0,_). 
result(L1,L2,N,Lg):-append(L1,L2,Lg),N1 is N-1,result(Lg,L2,N1,_). 
 
result([a,b],[a,b],2,X).

должно быть X = [a,b,a,b,a,b]

Решение задачи: «Как выполнить append N раз?»

textual
                            Листинг программы 
                        

                            result(L, _, 0, L).
result(L1, L2, N, Lres) :-
    append(L1, L2, Lprom),
    N1 is N-1,
    result(Lprom, L2, N1, Lres).
                        

Оцени полезность:

15 голосов , оценка 3.8 из 5

Похожие ответы