【每日一题】幸运票 - 2022.07.08 _ 按键精灵脚本教程

查看: 5060\|回复: 3	[神梦] 【每日一题】幸运票 - 2022.07.08 [复制链接]

神梦科技

神梦无痕

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

1^#

字体大小: t T

发表于 2022-07-08 22:38 | |只看楼主

题目描述

在前苏联的一些国家，有一种关于幸运票的信仰。如果票号左半部分的数字总和等于右半部分的数字总和，则任何种类的交通票都被认为是幸运的。以下是此类数字的示例：

003111 # 3 = 1 + 1 + 1
813372 # 8 + 1 + 3 = 3 + 7 + 2
17935 # 1 + 7 = 3 + 5 // 如果长度为单数则忽略掉中间的数字.
56328116 # 5 + 6 + 3 + 2 = 8 + 1 + 1 + 6

这些票要么在使用后被吃掉，要么被收集来炫耀。
您的任务是编写一个函数，如果参数是幸运票号的字符串十进制表示形式，或者所有其他数字luck_check(str) ，则返回True/False。它应该为空字符串或不代表十进制数的字符串返回 “invalid input”(原题是抛错，这边修改成了返回错误的提示)。

题目难度：简单
题目来源：Luck check | Codewars
题目交流： 584781753

Import "SmAssert.dll"
Function 幸运票(票号)
// 您的代码写在这里
End Function
SmAssert 幸运票("683179") = True
SmAssert 幸运票("683000") = False
SmAssert 幸运票("") = "invalid input"
SmAssert 幸运票("6F43E8") = "invalid input"
SmAssert 幸运票("17935") = True

复制代码

参考题解

Import "SmAssert.dll"
Function 幸运票(票号)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
' 判断非纯数字报错
If IsNumeric(CStr(票号)) = False Then
幸运票 = "invalid input"
Exit Function
End If
' 将数字分为左右两组
Dim Left_Begin, Left_End, Right_Begin, Right_End
Left_Begin = 1
Left_End = Len(票号) / 2
Right_Begin = Left_End + 1
Right_End = Len(票号)
If Len(票号) Mod 2 = 1 Then
' 如果长度为单数则忽略掉中间的数字
Left_End = (Len(票号) + 1) / 2 - 1
Right_Begin = Left_End + 2
End If
' 计算左半部分的数字总和
Dim i, Left_Sum
For i = Left_Begin To Left_End
Left_Sum = Left_Sum + Int(Mid(票号, i, 1))
Next
' 计算右半部分的数字总和
Dim j, Right_Sum
For j = Right_Begin To Right_End
Right_Sum = Right_Sum + Int(Mid(票号, j, 1))
Next
幸运票 = CBool(Left_Sum = Right_Sum)
End Function
SmAssert 幸运票("683179") = True
SmAssert 幸运票("683000") = False
SmAssert 幸运票("") = "invalid input"
SmAssert 幸运票("6F43E8") = "invalid input"
SmAssert 幸运票("17935") = True

复制代码

插件下载

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

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

回顶部

发送短消息 UID 502012 帖子 36 精华 0 鲜花 3 朵铜币 111 个银币 6 个性别在线时间 340 注册时间 2010-09-18 最后登录 2024-09-30 88360240 查看公共资料搜索主题搜索帖子 88360240 88360240 组别小学二年级 UID502012 帖子36 精华0 鲜花3 朵铜币111 个银币6 个在线时间340 注册时间2010-09-18	2^# 字体大小: t T 发表于 2022-07-09 20:44 \| \|只看该用户回复看看是什么鬼


	回顶部

发送短消息 UID 962409 帖子 15 精华 0 鲜花 3 朵铜币 164 个银币 7 个性别在线时间 80 注册时间 2012-01-03 最后登录 2023-11-05 836584 查看公共资料搜索主题搜索帖子 mingxiao83 mingxiao83 组别小学一年级 UID962409 帖子15 精华0 鲜花3 朵铜币164 个银币7 个在线时间80 注册时间2012-01-03 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	3^# 字体大小: t T 发表于 2022-07-17 09:04 \| \|只看该用户好久没来了,老学员一枚~~~


	回顶部

发送短消息 UID 8805082 帖子 1 精华 0 鲜花 2 朵铜币 2 个银币 2 个性别在线时间 0 注册时间 2022-07-25 最后登录 2022-07-25 查看公共资料搜索主题搜索帖子忽而今夏jk 组别幼儿园 UID8805082 帖子1 精华0 鲜花2 朵铜币2 个银币2 个在线时间0 注册时间2022-07-25	4^# 字体大小: t T 发表于 2022-07-25 15:10 \| \|只看该用户能看到嘛数据


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】幸运票 - 2022.07.08 [复制链接]