triangolo di Pascal in Prolog

Question

Ho scritto una funzione per restituire la riga successiva nel triangolo di Pascal data la riga corrente:

pascal_next_row([X],[X]).
pascal_next_row([H,H2|T],[A|B]):-
    pascal_next_row([H2|T],B),
    A is H + H2.

Voglio essere in grado di trovare il ennesima riga nel triangolo, per esempio pascal(5,Row), Row=[1,5,1,0,1,0,5,1]. Ho questo:

pascal(N,Row):-
 pascalA(N,[1,0],Row).

pascalA(N,R,_Row):-
 N > 0,
 M is N-1,
    next_row([0|R],NR),
    pascalA(M,NR,NR).

Ovviamente Row dovrebbe essere l'ultimo trovato prima n==0. Come posso restituirlo? Ho provato ad utilizzare la parola chiave is, cioè Row is NR ma che non è consentito, pare. Qualsiasi aiuto?

---

Il tentativo di utilizzare is sulle liste mi fa:

! Domain error in argument 2 of is/2
! expected expression, but found [1,4,6,4,1,0]
! goal:  _23592586 is[1,4,6,4,1,0]

Answer 1

Fare il caso base, N > 0 annulla il calcolo ...

pascalA(N,R,_Row):-
 N > 0, %% this evaluates to false so the calculation gets canceled
 M is N-1,
    next_row([0|R],NR),
    pascalA(M,NR,NR).

pascalA(0,R,R). %% this should be the base case... hope I got it correct...

pascalA(N,R,_Row):-
 M is N-1,
    next_row([0|R],NR),
    pascalA(M,NR,_Row).

Answer 2

Hai bisogno di un caso base per pascala dove N = 0.