杨辉三角erlang版

perl6社区最近一堆关于如何答应杨辉三角的文章，下面是最酷的一个版本
([1], -> @p { 0, @p Z+ @p, 0 } ... *).[^10].perl.say;
尝试export到erlang上面来，生成了以下代码，演示效果是
29> pascal:pascal(5).
[[1,4,6,4,1],[1,3,3,1],[1,2,1],[1,1],[1]]
短短几行代码，查资料看文档费了一个多小时，情何以堪

-module(pascal).
-import(lists).
-export([pascal/1]).

pascal(1)-> [[1]];
pascal(N) ->
L = pascal(N-1),
[H|_] = L,
[lists:zipwith(fun(X,Y)->X+Y end, [0]++H,H++[0])|L].

Posted via email from 单行道