erlang 小程序：整数序列，搜索和为正的最长子序列

最新推荐文章于 2021-03-29 16:16:45 发布

span76

最新推荐文章于 2021-03-29 16:16:45 发布

阅读量1.1k

点赞数

分类专栏： erlang 文章标签： erlang

本文链接：https://blog.csdn.net/span76/article/details/37766715

版权

erlang 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

本文介绍了使用Erlang编程实现的一个小程序，该程序旨在找到整数序列中和为正的最长子序列。通过维护当前位置的前子序列（Save）、当前子序列的和（CurSum）以及剩余未处理的数（Rest），递归地处理序列，当Rest为空或只剩一个元素时，根据和的正负决定是否包含该元素，以找到符合条件的最长子序列。

摘要由CSDN通过智能技术生成

最近学习了一下erlang, 编了个小程序

算法如下：

把参数分为三个

当前位置的前子序列（Save）（比如　-5, １，２，-1, _, ... ）当前位置为_时, 前子序列就是 1,2,-1

以及此子序列的和（CurSum） ( 1,2,-1的　CurSum 是 2)

剩余的数 Rest；剩余的数也可以表示为　[H|T] ,H是第一元素，T为剩余的元素是列表

处理过程如下：

　　如果 Rest 为空,说明处理完毕，打印　CurSum和Save

　　如果，还剩一个元素(Rest只有一个元素）

　　　　　　　如果此元素与CurSum的和依然是正，应该包括此元素

　　　　　　　反之不包括它

　　Rest有多个元素

　　　　　　　如果此元素与CurSum的和依然是正，应该包括此元素(存入Save, CurSum 更新为CurSum＋H), 继续递归

　　　　　　　否则，因为加入此元素CurSum为负，对后面的序列没有贡献，应该重新计算，在此之前，打印Save，做个了断

-module(tut1).
-export([maxlen_pos_sublist/3]).

maxlen_pos_sublist(Save, CurSum, Rest) when Rest == [] ->  io:format("~p~n",[{sum, CurSum}, {list,Save}]);
maxlen_pos_sublist(Save, CurSum, [H|T]) -> 
    case T == [] of
        false ->
            case CurSum+H > 0 of 
                true-> maxlen_pos_sublist(Save++[H],CurSum+H,T);
                false-> io:format("~p~n",[{sum, CurSum}, {list,Save}]), maxlen_pos_sublist([],0,T)
            end;
        true -> 
            case CurSum+H > 0 of 
                true-> maxlen_pos_sublist(Save++[H],CurSum+H,[]);
                false-> maxlen_pos_sublist(Save,CurSum,[])
            end
    end.

% c(tut1).
% tut1:maxlen_pos_sublist([],0,[1]).            
% tut1:maxlen_pos_sublist([],0,[1,2]).            
% tut1:maxlen_pos_sublist([],0,[1,3,-6,2,5]).