【每日一题】最长零串 - 2022.5.12 _ 按键精灵脚本教程

查看: 3856\|回复: 3	[神梦] 【每日一题】最长零串 - 2022.5.12 [复制链接]

神梦科技

神梦无痕

组别按键认证大神
UID2699998
帖子3587
精华11
鲜花2173 朵
铜币7386 个
银币1021 个
在线时间91120
注册时间2014-08-23

1^#

字体大小: t T

发表于 2022-05-13 13:02 | |只看楼主

题目描述

给定一个数字列表，请编写一个函数，找出其中长度最长的总和等于0的连续字串。数字允许出现正数和负数。

【示例】
输入：[1, 2, -3, 7, 8, -16]
输出：[1, 2, -3]
解释：连续相邻且总和为0的最长串就是1, 2, -3。

题目难度：中等
题目来源：CodeWars-Longest sequence with zero sum
题目交流： 584781753

' 请将断言插件升级到 v1.1
Import "SmAssert.dll"
Function 最长零串(数字列表)
// 您的代码写在这里
End Function
SmAssert.That 最长零串(Array(-1, 0, 1)) ,"=", Array(-1, 0, 1)
SmAssert.That 最长零串(Array(1, 2, -3, 7, 8, -16)) ,"=", Array(1, 2, -3)
SmAssert.That 最长零串(Array(25, -35, 12, 6, 92, -115, 17, 2, 2, 2, -7, 2, -9, 16, 2, -11)) ,"=", Array(92, -115, 17, 2, 2, 2)

复制代码

参考题解

' 请将断言插件升级到 v1.1
Import "SmAssert.dll"
VBSBegin
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
' 数组求和
Function Sum(List, StartIndex, EndIndex)
Dim Result, i
Result = 0
If StartIndex >= LBound(List) And EndIndex <= UBound(List) Then
For i = StartIndex To EndIndex
Result = Result + List(i)
Next
End If
Sum = Result
End Function
' 数组切片
Function Slice(List, StartIndex, EndIndex)
Dim Result, i
ReDim Result(EndIndex-StartIndex)
If StartIndex >= LBound(List) And EndIndex <= UBound(List) Then
For i = StartIndex To EndIndex
Result(i-StartIndex) = List(i)
Next
End If
Slice = Result
End Function
VBSEnd
Function 最长零串(数字列表)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
Dim 零和列表
Dim i, j
零和列表 = Array()
For i = 0 To UBound(数字列表)
For j = i + 1 To UBound(数字列表)
If Sum(数字列表, i, j) = 0 And (j - i) > UBound(零和列表) Then
零和列表 = Slice(数字列表, i, j)
End If
Next
Next
最长零串 = 零和列表
End Function
SmAssert.That 最长零串(Array(-1, 0, 1)) ,"=", Array(-1, 0, 1)
SmAssert.That 最长零串(Array(1, 2, -3, 7, 8, -16)) ,"=", Array(1, 2, -3)
SmAssert.That 最长零串(Array(25, -35, 12, 6, 92, -115, 17, 2, 2, 2, -7, 2, -9, 16, 2, -11)) ,"=", Array(92, -115, 17, 2, 2, 2)

复制代码

插件下载

【插件】神梦断言插件 SmAssert.dll，帮助开发者发现业务逻辑错误

游戏、办公、网页、脚本辅助定制
联系QQ: 1042207232
【命令库】利用IE+Chrome谷歌双核操纵网页填表，支持框架操作
【命令库】按键精灵也玩套接字(Sock)
SMWHff's Blog | 梦痕编程 - 神梦博客

回顶部

发送短消息 UID 7798387 帖子 13 精华 0 鲜花 10 朵铜币 23 个银币 13 个性别在线时间 0 注册时间 2020-07-17 最后登录 2024-12-02 2685252668 查看公共资料搜索主题搜索帖子 imchenhaibin imchenhaibin 组别小学一年级 UID7798387 帖子13 精华0 鲜花10 朵铜币23 个银币13 个在线时间0 注册时间2020-07-17	2^# 字体大小: t T 发表于 2022-05-13 13:18 \| \|只看该用户 sfsfsfsfs


	回顶部

发送短消息 UID 3953530 帖子 442 精华 0 鲜花 10 朵铜币 1239 个银币 26 个性别在线时间 12440 注册时间 2016-06-04 最后登录 2022-06-29 查看公共资料搜索主题搜索帖子 wsmsq wsmsq 组别初中三年级 UID3953530 帖子442 精华0 鲜花10 朵铜币1239 个银币26 个在线时间12440 注册时间2016-06-04 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	3^# 字体大小: t T 发表于 2022-05-14 14:36 \| \|只看该用户学习


	回顶部

发送短消息 UID 441453 帖子 4 精华 0 鲜花 1 朵铜币 14 个银币 3 个性别在线时间 0 注册时间 2010-06-14 最后登录 2022-06-04 413604 查看公共资料搜索主题搜索帖子 jiashunpeng jiashunpeng 组别小学一年级 UID441453 帖子4 精华0 鲜花1 朵铜币14 个银币3 个在线时间0 注册时间2010-06-14	4^# 字体大小: t T 发表于 2022-05-15 00:38 \| \|只看该用户 asdfasdfasdfasdf


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】最长零串 - 2022.5.12 [复制链接]