【每日一题】一站到底 - 2022.05.01 _ 【集结令●英雄归来】

查看: 1951\|回复: 3	[神梦] 【每日一题】一站到底 - 2022.05.01 [复制链接]

神梦科技

神梦无痕

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

1^#

字体大小: t T

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

题目描述

给定一个数字n，找出1到n(含n)中，经过淘汰后最终剩下到数字。
淘汰到规则是：从左到右，删除第一个数字，然后每隔一个数字删除一个，直到到达列表末尾。
重复上面的步骤，但这次是从右到左。也就是，删除最右侧的数字，然后剩下的数字每隔一个删除一个。
不断重复这两步，从左到右和从右到左交替进行，直到只剩下一个数字。

【示例】
输入：9
输出：6
解释：1,2,3,4,5,6,7,8,9中，第一轮淘汰1、3、5、7、9后剩下2、4、6、8，第二轮淘汰4、8剩下2、6，第三轮淘汰2，所以最终结果是6

题目难度：简单
题目来源：CodeWars-Last man standing
题目交流： 584781753

Import "SmAssert.dll"
Function 一站到底(数字)
// 您的代码写在这里
End Function
SmAssert 一站到底(1) = 1
SmAssert 一站到底(9) = 6
SmAssert 一站到底(100) = 54
SmAssert 一站到底(1000) = 510

复制代码

参考题解

Import "SmAssert.dll"
Function 一站到底(数字)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
Dim sc
Dim 返回值, 步进, 向量
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"
返回值 = 1: 步进 = 1: 向量 = 0
While(数字 > 1)
If Not 数字 Mod 2 And 向量 Mod 2 Then
返回值 = 返回值 - 步进
End If
返回值 = 返回值 + 步进
数字 = sc.Eval(数字 & ">>" & 1)
步进 = sc.Eval(步进 & "<<" & 1)
向量 = 向量 + 1
Wend
Set sc = Nothing
一站到底 = 返回值
End Function
SmAssert 一站到底(1) = 1
SmAssert 一站到底(9) = 6
SmAssert 一站到底(100) = 54
SmAssert 一站到底(1000) = 510

复制代码

插件下载

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

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

回顶部

发送短消息 UID 552797 帖子 847 精华 0 鲜花 -67 朵铜币 1035 个银币 -23 个性别在线时间 19180 注册时间 2010-12-04 最后登录 2022-07-19 1015213127 查看公共资料搜索主题搜索帖子 clboy520 clboy520 组别大学一年级 UID552797 帖子847 精华0 鲜花-67 朵铜币1035 个银币-23 个在线时间19180 注册时间2010-12-04 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	2^# 字体大小: t T 发表于 2022-05-02 14:58 \| \|只看该用户 1111111111


	回顶部

发送短消息 UID 4533877 帖子 37 精华 0 鲜花 23 朵铜币 48 个银币 27 个性别在线时间 100 注册时间 2017-07-04 最后登录 2024-01-10 查看公共资料搜索主题搜索帖子 woshinibaw 组别小学二年级 UID4533877 帖子37 精华0 鲜花23 朵铜币48 个银币27 个在线时间100 注册时间2017-07-04	3^# 字体大小: t T 发表于 2022-05-02 19:38 \| \|只看该用户 1111111111111


	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵铜币 3957 个银币 204 个性别在线时间 26840 注册时间 2015-06-28 最后登录 2024-03-09 查看公共资料搜索主题搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵铜币3957 个银币204 个在线时间26840 注册时间2015-06-28 小红帽对论坛提出良好建议（可向管理员申请）	4^# 字体大小: t T 发表于 2022-05-03 23:06 \| \|只看该用户 1111111111111


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】一站到底 - 2022.05.01 [复制链接]