prolog pascal triangle

Question

嗨，有没有人知道我该怎么做pascal第n行 当我要求 ：？帕斯卡（2，行）。 我得到行= [1,2,1] ??

请帮我

Answer 1

这里是计算第n行的代码。

第一部分扫描一行，计算下一行。第一行必须以0作为前缀，以便下一行中的第一个“1”是一个总和，就像其他元素一样。它在2个列表上递归：

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

第二部分计算所有行，直到被问到的那一行。它递归的N：

pascal(0, [1]) :- !. 
pascal(N, R) :- 
    N1 is N-1, 
    pascal(N1, R1), 
    pascal_next_row([0|R1], R). 

如果您需要完整的三角形，所有你需要做的是改变第二个参数来处理行的列表，并收集他们：

pascal(0, [[1]]) :- !. 
pascal(N, [R, R1 | RN]) :- 
    N1 is N-1, 
    pascal(N1, [R1 | RN]), 
    pascal_next_row([0|R1], R). 

Answer 2

This answer to a code golf有在序言中实现，只是扩展名：

Answer 3

帕斯卡三角也被称为塔尔塔利亚三角：

sumC([X,Y],[Z]) :- Z is X + Y. 
sumC([X,Y|L], Z):- H is X + Y, 
        sumC([Y|L],L2), 
        Z = [H|L2]. 

tartaglia(1,[1]) :- ! . 
tartaglia(2,[1,1]) :- !. 
tartaglia(N, L) :- Ant is N - 1, 
        tartaglia(Ant,L2), 
        sumC(L2,R), 
        append([1|R],[1],L), !. 

使用的辅助谓词sumC，你可以很容易：

?- tartaglia(3,R). 
R = [1, 2, 1]. 

?- tartaglia(2,R). 
R = [1, 1]. 

?- tartaglia(1,R). 
R = [1]. 

?- tartaglia(6,R). 
R = [1, 5, 10, 10, 5, 1]. 

正如我在评论说。你问第n行。你例子中的[1,2,1]是第三行。