【每日一题】最小代价 - 2022.5.13 _ 按键精灵脚本教程

查看: 3926\|回复: 6	[神梦] 【每日一题】最小代价 - 2022.5.13 [复制链接]

神梦科技

神梦无痕

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

1^#

字体大小: t T

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

题目描述

给定一个整数n，通过删掉其中某一位数字，找出操作之后遗留的最大数字。

【示例】
输入：152
输出：52
解释：如果删掉1，得到52；如果删掉5，得到12；如果删掉2，得到15。因此最大方案是删掉1得到52。

题目难度：中等
题目来源：Simple Fun #79: Delete a Digit
题目交流： 584781753

Import "SmAssert.dll"
Function 最小代价(数字)
// 您的代码写在这里
End Function
SmAssert 最小代价(152) = 52
SmAssert 最小代价(1001) = 101
SmAssert 最小代价(10) = 1

复制代码

参考题解

Import "SmAssert.dll"
Function 最小代价(数字)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
Dim 最大值
Dim i, m, num
最大值 = 0
For i = 1 To Len(数字)
m = Mid(数字, i, 1)
num = Mid(数字, 1, i-1) & Replace(数字, m, "", i, 1)
num = Int(num)
If num > 最大值 Then
最大值 = num
End If
Next
最小代价 = 最大值
End Function
SmAssert 最小代价(152) = 52
SmAssert 最小代价(1001) = 101
SmAssert 最小代价(10) = 1

复制代码

插件下载

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

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

回顶部

发送短消息 UID 6526601 帖子 1 精华 0 鲜花 1 朵铜币 41 个银币 1 个性别在线时间 0 注册时间 2019-05-22 最后登录 2022-05-13 查看公共资料搜索主题搜索帖子 15207013231 组别幼儿园 UID6526601 帖子1 精华0 鲜花1 朵铜币41 个银币1 个在线时间0 注册时间2019-05-22 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	2^# 字体大小: t T 发表于 2022-05-13 09:37 \| \|只看该用户了解下


	回顶部

发送短消息 UID 4272787 帖子 98 精华 0 鲜花 2 朵铜币 227 个银币 4 个性别在线时间 1440 注册时间 2016-12-31 最后登录 2022-09-27 100420191 查看公共资料搜索主题搜索帖子 q1004 q100420191 组别小学五年级 UID4272787 帖子98 精华0 鲜花2 朵铜币227 个银币4 个在线时间1440 注册时间2016-12-31	3^# 字体大小: t T 发表于 2022-05-13 09:39 \| \|只看该用户 SmAssert 最小代价(1001) = 101


	回顶部

发送短消息 UID 783466 帖子 693 精华 0 鲜花 114 朵铜币 4190 个银币 18 个性别在线时间 23580 注册时间 2011-09-21 最后登录 2024-02-15 605939918 查看公共资料搜索主题搜索帖子 datongye datongye 组别高中三年级 UID783466 帖子693 精华0 鲜花114 朵铜币4190 个银币18 个在线时间23580 注册时间2011-09-21	4^# 字体大小: t T 发表于 2022-05-13 10:07 \| \|只看该用户学习下


	回顶部

发送短消息 UID 8352523 帖子 18 精华 0 鲜花 15 朵铜币 35 个银币 25 个性别在线时间 0 注册时间 2021-06-28 最后登录 2022-12-13 248101993 查看公共资料搜索主题搜索帖子 guoyuke86 guoyuke86 组别小学一年级 UID8352523 帖子18 精华0 鲜花15 朵铜币35 个银币25 个在线时间0 注册时间2021-06-28	5^# 字体大小: t T 发表于 2022-05-13 10:58 \| \|只看该用户从0-9循环嵌套从右往左循环数字判断从0-9.有0删0，有1删1，以此类推，一直到成功删除


	回顶部

发送短消息 UID 703071 帖子 12 精华 0 鲜花 9 朵铜币 22 个银币 12 个性别在线时间 0 注册时间 2011-07-08 最后登录 2024-06-04 719743297 查看公共资料搜索主题搜索帖子 a719743297 a719743297 组别小学一年级 UID703071 帖子12 精华0 鲜花9 朵铜币22 个银币12 个在线时间0 注册时间2011-07-08	6^# 字体大小: t T 发表于 2022-05-13 11:08 \| \|只看该用户 SmAssert 最小代价(1001) = 101


	回顶部

发送短消息 UID 8352523 帖子 18 精华 0 鲜花 15 朵铜币 35 个银币 25 个性别在线时间 0 注册时间 2021-06-28 最后登录 2022-12-13 248101993 查看公共资料搜索主题搜索帖子 guoyuke86 guoyuke86 组别小学一年级 UID8352523 帖子18 精华0 鲜花15 朵铜币35 个银币25 个在线时间0 注册时间2021-06-28	7^# 字体大小: t T 发表于 2022-05-13 12:14 \| \|只看该用户不一样的解法 Function 最小代价(数字) If IsNumeric(数字) = False or Len(数字) = 1 Then Exit Function Dim sNum, result sNum = CStr(数字) If 数字 < 0 Then result = For_最小代价(StrReverse(Replace(sNum, "-", "")),9,0,-1) Else result = For_最小代价(StrReverse(sNum),0,9,1) End If If 数字 < 0 Then result = "-"&result 最小代价 = Clng(result) End Function Function For_最小代价(sNum,start,finish,st) For i = start To finish step st result = Replace(sNum, Cstr(i), "", 1, 1) If Len(result) < Len(sNum) Then For_最小代价 = StrReverse(result) Exit Function End If Next End Function 1001=101 -152=-12 1= 123456=23456 654321=65432 45123=4523 点评神梦科技思路不错👍 发表于 2022/5/13 12:58:07 已有1评分我要评分查看所有评分


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】最小代价 - 2022.5.13 [复制链接]

点评