子数组求和问题_perl 数组求和

1. 求所有的子数组中累加和为k的最长子数组长度 

给定一个数组arr以及整数k，求数组arr中和为k的最长子数组（子数组在arr中是连续的）。

核心思想：设数组arr前i个值的和为S(i)，则arr[j:i]的和为S(i)-S(j-1)。因此，设置两个列表list_sum和list_index，list_sum用于存储arr前n个数的和，list_index为第n个数在arr中的位置。当S(i)-k 在list_sum中时，那么假设此时list_sum中值在list_index中对应的位置为j。则一个满足要求的子数组为arr[j+1:i+1]。

class Solution:
    def FindMaxLenOfSubStr(self, arr, k):
        list_sum = [0]
        list_index = [-1]
        leng_max = 0
        leng_str = []
        sum_s = 0
        for i, num in enumerate(arr):
            sum_s += num
            if sum_s-k in list_sum:
                j = list_sum.index(sum_s-k)
                index = list_index[j]
                leng = i-index
                if leng > leng_max:
                    leng_max = leng
                    leng_str = arr[index+1:i+1]
 
            list_sum.append(sum_s