|
- 按键认证大神
- 2699998
- 3587
- 11
- 2173 朵
- 7386 个
- 1021 个
- 91120
- 2014-08-23
|
1#
t
T
发表于 2022-11-07 23:00
|
|只看楼主
题目描述
我们有一些二维坐标，如 "(1, 3)" 或 "(2, 0.5)"，然后我们移除所有逗号，小数点和空格，得到一个字符串S。返回所有可能的原始字符串到一个列表中。
原始的坐标表示法不会存在多余的零，所以不会出现类似于"00", "0.0", "0.00", "1.0", "001", "00.01"或一些其他更小的数来表示坐标。此外，一个小数点前至少存在一个数，所以也不会出现“.1”形式的数字。
最后返回的列表可以是任意顺序的。而且注意返回的两个数字中间（逗号之后）都有一个空格。
提示:
4 <= S.length <= 12
S[0] = "(", S[S.length - 1] = ")", 且字符串 S 中的其他元素都是数字。
【示例】1:
输入: "(123)"
输出: ["(1, 23)", "(12, 3)", "(1.2, 3)", "(1, 2.3)"]
【示例】2:
输入: "(00011)"
输出: ["(0.001, 1)", "(0, 0.011)"]
解释:
0.0, 00, 0001 或 00.01 是不被允许的。
【示例】3:
输入: "(0123)"
输出: ["(0, 123)", "(0, 12.3)", "(0, 1.23)", "(0.1, 23)", "(0.1, 2.3)", "(0.12, 3)"]
【示例】4:
输入: "(100)"
输出: [(10, 0)]
解释:
1.0 是不被允许的。
题目难度：中等
题目来源：ambiguous-coordinates | leetcode
题目交流： 584781753
|
- Import "SmAssert.dll"
- VBSBegin
- ' 冒泡排序数组
- Function Sort(ByVal Arr)
- Dim i
- Dim j
- Dim tmp
-
- For i = 0 To UBound(Arr) - 1
- For j = 0 To UBound(Arr) - i - 1
- If Arr(j) > Arr(j + 1) Then
- tmp = Arr(j + 1)
- Arr(j + 1) = Arr(j)
- Arr(j) = tmp
- End If
- Next
- Next
- Sort = Arr
- End Function
- VBSEnd
- Function 模糊坐标(字符串)
- // 您的代码写在这里
- End Function
- SmAssert.That Sort(模糊坐标("(123)")), "=", Sort(Array("(1, 23)", "(12, 3)", "(1.2, 3)", "(1, 2.3)"))
- SmAssert.That Sort(模糊坐标("(00011)")), "=", Sort(Array("(0.001, 1)", "(0, 0.011)"))
- SmAssert.That Sort(模糊坐标("(0123)")), "=", Sort(Array("(0, 123)", "(0, 12.3)", "(0, 1.23)", "(0.1, 23)", "(0.1, 2.3)", "(0.12, 3)"))
- SmAssert.That Sort(模糊坐标("(100)")), "=", Sort(Array("(10, 0)"))
参考题解- Import "SmAssert.dll"
- VBSBegin
- ' 冒泡排序数组
- Function Sort(ByVal Arr)
- Dim i
- Dim j
- Dim tmp
-
- For i = 0 To UBound(Arr) - 1
- For j = 0 To UBound(Arr) - i - 1
- If Arr(j) > Arr(j + 1) Then
- tmp = Arr(j + 1)
- Arr(j + 1) = Arr(j)
- Arr(j) = tmp
- End If
- Next
- Next
- Sort = Arr
- End Function
- ' 字符串切片
- Function Slice(ByVal str, ByVal iStart, ByVal iEnd)
- If iEnd = - 1 Then
- iEnd = Len(str)
- End If
- Slice = Mid(str, iStart + 1, iEnd - iStart)
- End Function
- ' 获取合法坐标
- Function get_pos(ByVal s)
- Dim pos
- Dim p
-
- pos = Array()
- If Left(s, 1) <> "0" Or s = "0" Then
- Redim pos(UBound(pos) + 1)
- pos(UBound(pos)) = s
- End If
- For p = 1 To Len(s) - 1
- If (p <> 1 And Left(s, 1) = "0") Or Right(s, 1) = "0" Then
- ' 不合法坐标
- Else
- Redim Preserve pos(UBound(pos) + 1)
- pos(UBound(pos)) = Slice(s, 0, p) + "." + Slice(s, p, - 1 )
- End If
- Next
- get_pos = pos
- End Function
- VBSEnd
- Function 模糊坐标(字符串)
-
- '【作者】：神梦无痕
- '【ＱＱ】：1042207232
- '【Ｑ群】：584781753
-
- Dim n 'As Long
- Dim l 'As Long
- Dim lt 'As Variant()
- Dim rt 'As Variant()
- Dim i 'As Long
- Dim j 'As Long
- n = Len(字符串) - 2
- res = Array()
- 字符串 = Mid(字符串, 2, n)
- For l = 1 To n - 1
- lt = get_pos(Slice(字符串, 0, l))
- If UBound(lt) = -1 Then
- Goto continue
- End If
- rt = get_pos(Slice(字符串, l, -1))
- If UBound(rt) = -1 Then
- Goto continue
- End If
- For Each i In lt
- For Each j In rt
- Redim Preserve res(UBound(res) + 1)
- res(UBound(res)) = "(" + i + ", " + j + ")"
- Next
- Next
- Rem continue
- Next
- 模糊坐标 = res
- End Function
- SmAssert.That Sort(模糊坐标("(123)")), "=", Sort(Array("(1, 23)", "(12, 3)", "(1.2, 3)", "(1, 2.3)"))
- SmAssert.That Sort(模糊坐标("(00011)")), "=", Sort(Array("(0.001, 1)", "(0, 0.011)"))
- SmAssert.That Sort(模糊坐标("(0123)")), "=", Sort(Array("(0, 123)", "(0, 12.3)", "(0, 1.23)", "(0.1, 23)", "(0.1, 2.3)", "(0.12, 3)"))
- SmAssert.That Sort(模糊坐标("(100)")), "=", Sort(Array("(10, 0)"))
插件下载【插件】神梦断言插件 SmAssert.dll，帮助开发者发现业务逻辑错误
|
闽公网安备 35010002000112号