• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

近期学习了一下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]).




鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
腾讯WeTest携手拉夏贝尔共筑电商小程序安全壁垒发布时间:2022-07-18
下一篇:
微信小程序传参乱码问题1发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap