erlang杂记六 --- 写了个小函数(2)：最长子序列

代码：

-module(my_max).
-export([get_max/1]).

get_max(L)  ->get_max(L, 0, 0).

get_max(L, M, Nm)   ->
    case cal_max(L, M, Nm)  of
        {_, Tm, []} -> get_max_l(Tm, Nm);
        {1, Tm, T}  -> get_max(T, Tm, Nm); %此处有bug，Nm值修改为Tm与Nm之间的最大值即可:get_max(T,Tm,get_max_l(Tm,Nm)); 但是这个时候代码看起来好丑= =！
        {0, Tm, T}  -> get_max(T, 0, Tm)
    end.

cal_max(L, M, Nm)->
    case get_head(L) of
        {H, []} -> switch_max(H, M, Nm, []);
        {H, T} ->switch_max(H, M, Nm, T)
    end.

switch_max(H, M, Nm, T)->
    if
        H + M >= 0 -> {1, H + M, T};
        true -> get_max_n(M, Nm, T)
    end.

get_max_n(M, Nm, L) ->
    {0, get_max_l(M,Nm), L}.

get_max_l(Tm, Nm)   ->  
    if
        Tm > Nm -> Tm;
        true -> Nm
    end.

get_head(L) ->
    [H|T] = L,
    {H, T}.

函数名有点丑。。实在是想不出这个函数该叫啥。。函数只返回了最大值，如果需要最大序列的话，可以把M和Nm改成State的record，每次更新record的对应内容就好了

(好像还是存在一个bug，如：[3,-1,-1]，这个状态要怎么记录？难道这个问题只能把结果全部计算出来然后取出最大值么？有空看看动态规划再想想。。

 啊，有了，每次计算出当前最大值后，多与历史值比较并确认是否更新历史值。。也就是让历史值一直是最大值就可以了。。已更新，在注释中。。)

逻辑如下：

1.取出第一个元素，并将该元素与已计算最大值M求和

    a.值大于0，该值作为当前计算的最大值返回

    b.值小于0，将已计算的最大值与历史最大值比较，并返回其中最大的

2.根据返回值，更新需迭代元素

    a.无后续元素，返回计算出来的最大值与历史最大值中最大的，结束递归

    b.当前元素仍未达到最大，更新当前最大值并继续迭代

    c.当前元素已最大，更新历史最大值并继续迭代。