338. 计数问题，求一个更优算法解

micch · 发表于 2024-4-20 13:07

本帖最后由 micch 于 2024-4-23 11:27 编辑

搜算法遇到一个题，看上去直接循环很简单的题，用什么算法好呢？有没有vba的写法，学习一下。

先用暴力循环写个基础版，很粗浅的解法。
代码：

Sub Main()
Dim ar, br, cr(9) As Long
Dim i, j, k
ar = [{1,10;44,497;346,542;1199,1748;1496,1403;1004,503;1714,190;1317,854;1976,494;1001,1960}]
ReDim br(1 To UBound(ar))
For i = 1 To UBound(ar)
br(i) = cr
If ar(i, 1) > ar(i, 2) Then
k = ar(i, 1): ar(i, 1) = ar(i, 2): ar(i, 2) = k
End If
For j = ar(i, 1) To ar(i, 2)
For k = 1 To Len(j)
br(i)(Mid(j, k, 1)) = br(i)(Mid(j, k, 1)) + 1
Next
Next
Next
For j = 0 To 9
s = s & vbTab & vbTab & j
Next
Debug.Print vbTab & vbTab & vbTab & s
For i = 1 To UBound(ar)
s = ar(i, 1) & "~" & ar(i, 2) & ":" & vbTab
For j = 0 To 9
s = s & vbTab & vbTab & br(i)(j)
Next
Debug.Print s
Next
End Sub

复制代码

输出结果：

shiruiqiang · 发表于 2024-4-20 13:56

个人的处理，循环一组数，mid(数字)，字典(1-9)的个数

ooluckydog · 发表于 2024-4-20 14:24

循环是绕不开的

micch · 发表于 2024-4-20 15:57

嗯，正则替换完函数返回长度。这算是用内置功能解决问题了。

有没有，内置功能以外，基础代码的方法呢。主要是不知道什么算法合适，递归搜索或者动态规划，似乎都可以，还在研究怎么写，没写好。

一招秒杀 · 发表于 2024-4-20 16:58

看到又是变量+数组、又是组件，循环套循环的复杂冗长代码，真让人头大，试着用SQL 1条诗句，全部搞定。

huanghai22 · 发表于 2024-4-20 19:03

表示参与一下

micch · 发表于 2024-4-20 21:52

用函数替换计算长度，是比较省事，不过这种练习题应该有更多的方法，比如在跨度很大的整数进行统计的方法

我也用replace写一个吧

Sub Main3()
ar = [{1,10;44,497;346,542;1199,1748;1496,1403;1004,503;1714,190;1317,854;1976,494;1001,1960}]
For i = 1 To 10
Debug.Print fun(ar(i, 1), ar(i, 2))
Next
End Sub
Function fun(a, b)
Dim br(9) As String
For i = a To b Step IIf(a > b, -1, 1)
For j = 0 To 9
br(j) = Val(br(j)) + Len(i) - Len(Replace(i, j, ""))
Next
Next
fun = a & "~" & b & " : " & Join(br)
End Function

复制代码

cnmlgb9998 · 发表于 2024-4-20 23:24

本帖最后由 cnmlgb9998 于 2024-4-20 23:44 编辑

let
源 = Excel.CurrentWorkbook(){[Name = "FromArray_1"]}[Content],
更改的类型 = Table.TransformColumnTypes(源, {{"Column1", Int64.Type}, {"Column2", Int64.Type}}),
lst = Table.ToRows(更改的类型),
自定义1 = Table.FromRows(
List.Transform(
lst,
each List.Transform(
{"0" .. "9"},
(m) =>
List.Count(
List.Select(
List.Accumulate(
{_{0} .. _{1}},
{},
(x, y) => x & Text.ToList(Text.From(y))
),
(n) => m = n
)
)
)
),
{"0" .. "9"}
)
in
自定义1

复制代码

用PQ 解决。。。。。。。。。。。。。。。。。。。。。。。。。。

学了4个月的PQ，现在基本能一口气把代码全敲出来了。。。

cnmlgb9998 · 发表于 2024-4-20 23:26

let
源 = Excel.CurrentWorkbook(){[Name = "FromArray_1"]}[Content],
更改的类型 = Table.TransformColumnTypes(源, {{"Column1", Int64.Type}, {"Column2", Int64.Type}}),
lst = Table.ToRows(更改的类型),
自定义1 = Table.Combine(
List.Transform(
lst,
(m) =>
Table.FromRows(
{
List.Transform(
Table.ToColumns(
Table.Combine(
List.Accumulate(
{m{0} .. m{1}},
{},
(x, y) =>
x
& {
[
a = List.Zip(
List.Transform(
{
"0"
.. "9"
},
each
{
_,
List.Count(
List.Select(
Text.ToList(
Text.From(
y
)
),
(
n
) =>
n
= _
)
)
}
)
),
b
= Table.FromRecords(
{
Record.FromList(
a{
1
},
a{
0
}
)
}
)
][b]
}
)
)
),
List.Sum
)
},
{"0" .. "9"}
)
)
)
in
自定义1

复制代码

cnmlgb9998 · 发表于 2024-4-20 23:46

代码优化了一下。。。。。。。。。。。。。。。。。。

		自动登录	找回密码
密码			免费注册

[已解决] 338. 计数问题，求一个更优算法解