【每日一题】统计频率 - 2022.5.18 _ 【集结令●英雄归来】

查看: 1754\|回复: 1	[神梦] 【每日一题】统计频率 - 2022.5.18 [复制链接]

神梦科技

神梦无痕

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

1^#

字体大小: t T

发表于 2022-05-18 08:11 | |只看楼主

题目描述

给定一个字符串words和分隔符sep，请编写一个函数，统计字符串words中每个元素出现的次数，使用sep进行拼接。

示例：
输入：“hello world”，输出：" 1-1-3-3-2-1-1-2-1-3-1"

题目难度：简单
题目来源：CodeWars-Frequency sequence
题目交流： 584781753

Import "SmAssert.dll"
Function 统计频率(字符串, 分隔符)
// 您的代码写在这里
End Function
SmAssert 统计频率("hello world", "-") = "1-1-3-3-2-1-1-2-1-3-1"
SmAssert 统计频率("19999999", ":") = "1:7:7:7:7:7:7:7"
SmAssert 统计频率("^^^**$", "x") = "3x3x3x2x2x1"

复制代码

参考题解

Import "SmAssert.dll"
Function 统计频率(字符串, 分隔符)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
Dim 返回值, 字符, 频率
Dim i
For i = 1 To Len(字符串)
字符 = Mid(字符串, i, 1)
频率 = Len(字符串) - Len(Replace(字符串, 字符, ""))
返回值 = 返回值 & 频率 & 分隔符
Next
返回值 = Left(返回值, Len(返回值)-1)
统计频率 = 返回值
End Function
SmAssert 统计频率("hello world", "-") = "1-1-3-3-2-1-1-2-1-3-1"
SmAssert 统计频率("19999999", ":") = "1:7:7:7:7:7:7:7"
SmAssert 统计频率("^^^**$", "x") = "3x3x3x2x2x1"

复制代码

插件下载

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

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

回顶部

发送短消息 UID 8727960 帖子 6 精华 0 鲜花 5 朵铜币 7 个银币 7 个性别在线时间 0 注册时间 2022-05-06 最后登录 2022-06-09 查看公共资料搜索主题搜索帖子 gyzczy 组别小学一年级 UID8727960 帖子6 精华0 鲜花5 朵铜币7 个银币7 个在线时间0 注册时间2022-05-06	2^# 字体大小: t T 发表于 2022-05-18 08:59 \| \|只看该用户来学习中……


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】统计频率 - 2022.5.18 [复制链接]