标签:erlang
最近学习了一下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]).
erlang 小程序:整数序列,搜索和为正的最长子序列,布布扣,bubuko.com
标签:erlang
原文地址:http://blog.csdn.net/span76/article/details/37766715