Se a Base do meu triangulo fosse essa
[6,5,9,3,2,4]
ficaria assim:
[(6-5),(9-5),(9-3),(3-2),(4-2)] = [1,4,6,1,2]
[1,4,6,1,2] = [(1-4),(6-4),(6-1),(2-1)] = [3,2,5,1]
.
.
3 2 5 1
1 4 6 1 2
6 5 9 3 2 4
O Numero de cima é sempre formado pela subtração dos dois que estao abaixo dele
Pensei em um solução:
anexa([], B, B).
anexa([X|A], B, [X|C]) :- anexa(A, B, C).
tr([]):-!.
tr(X):-
[A|B] = X, %Pega a lista X e pegar o primeiro elemento e coloca em A
[C|_] = B, %Pega a lista B e pega a cabeça e coloca em B
AUX is A-C, %tenho quem criar uma regra para pegar o modulo dessa subtração
anexa(L,AUX,P), %Vou Anexando AUX a uma outrar lista
tr(B),
tr(P),
write(X).