• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[神梦] 【每日一题】冗余编译器 - 2022.5.2 [复制链接]

1#
题目描述

给定一个字符串,请编写一个函数,检测其中的字符,
如果只出现1次则编译成"(",如果出现多次则编译成")"。
忽略字母的大小写。

示例
输入:“SMWH”,输出:“((((”
输入:“Success”:,输出:“)())())”

题目难度:中等
题目来源:codewars: Duplicate Encoder
题目交流: 584781753
  1. Import "SmAssert.dll"

  2. Function 冗余编译器(字符串)
  3.     // 您的代码写在这里
  4. End Function


  5. SmAssert 冗余编译器("SMWH") = "(((("
  6. SmAssert 冗余编译器("Success") = ")())())"
  7. SmAssert 冗余编译器("(( @") = "))(("
复制代码

参考题解


  1. Import "SmAssert.dll"

  2. Function 冗余编译器(字符串)
  3.     
  4.     '【作者】:神梦无痕
  5.     '【QQ】:1042207232
  6.     '【Q群】:584781753
  7.     
  8.     Dim 返回值, 字符, 次数
  9.     Dim i
  10.     
  11.     字符串 = UCase(字符串)
  12.     For i = 1 To Len(字符串)
  13.         字符 = Mid(字符串, i, 1)
  14.         次数 = Len(字符串) - Len(Replace(字符串, 字符, ""))
  15.         If 次数 = 1 Then
  16.             返回值 = 返回值 & "("
  17.         Else
  18.             返回值 = 返回值 & ")"
  19.         End If
  20.     Next
  21.     冗余编译器 = 返回值
  22. End Function


  23. SmAssert 冗余编译器("SMWH") = "(((("
  24. SmAssert 冗余编译器("Success") = ")())())"
  25. SmAssert 冗余编译器("(( @") = "))(("
复制代码





插件下载

 

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

2#

学习一下

3#

222222222222

4#

6666666666666666

5#

用VBS来迂回实现

发新话题 回复该主题