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

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

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


算法如下:

把参数分为三个

当前位置的前子序列(Save)(比如 -5, 1,2,-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]).



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值