求一个比较高效的数组查找算法

2009-08-06 04:01:16 272 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

针对范围对的高效查找算法设计（不准用数组）题目链接在：针对一群范围对的最快查找算法设计（不要用数组），是我目前遇到的一个较棘手的问题。描述如下：假如有一群范围对，格式为：，设计一个最快查找算法，使得给定一个值，输出该值所在范围对的结果值。注意：范围对之间没有交集，即不可能存在和这样的两个范围对。例如有以下几个范围对： , 20> , 27> , 28> , 27> , 122> , 12> , 13> 阅读详情

有数组：a(9);
a(0)=1
a(1)=1
a(2)=2
a(3)=3
a(4)=1
a(5)=2
a(6)=3
a(7)=4
a(8)=5
a(9)=6
希望经过一定的计算得出
============================
值，出现的次数
1, 3
2，2
3，2
4，1
5，1
6，1

...全文

深入解析Java中的高效数组算法在Java开发中，数组是一种常用的数据结构，用于存储和处理大量的数据。数组算法是编写高效和优化的代码的关键之一。本文将介绍一些常见的数组算法及其应用场景。通过对这些算法的解析和分析，我们可以提高代码的性能和效率。本文将深入讨论Java中的数组算法，包括源代码解析、应用场景案例、优缺点分析和类代码方法介绍。通过理解这些算法，我们可以更好地应用和优化数组相关的代码。数组算法是用于对数组进行操作和转换的一组技术和方法。常见的数组算法包括查找、排序、插入、删除等。阅读详情

llpoo

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

xzx99 2009-08-06

打赏
举报

a是一定范围内的自然数：



<%

DIM a(9) , b(9,1)

a(0)=1 

a(1)=1 

a(2)=2 

a(3)=3 

a(4)=1 

a(5)=2 

a(6)=3 

a(7)=4 

a(8)=5 

a(9)=6



For i=0 To 9

 b(i,0)=i

  for j=0 to 9

   if   b(i,0)=a(j) then b(i,1)= b(i,1)+1

  next 

next 



For i=0 To 9

 if b(i,0)>0 and b(i,1)>0 then Response.Write  b(i,0) & "," & b(i,1) & "<BR>"

next 



%>

lzp4881 2009-08-06

打赏
举报

<%
dim a : a = Array(1,1,2,3,1,2,3,4,5,6,1,1,4,5,6,2,22,22,222,2,3,4,5,6,6,5,1,2,3,4,5,6,1,2,3,4,5,6,3,2,1,22,222,22,22,222,3,4,5,6,2,3,1,2,3,4,5,6,6,5,4,3,2,1)
str=","&join(a,",")&","
while len(str)<>1
temp=left(str,instr(2,str,","))
l1=len(str)
while instr(str,temp)<>0
str=replace(str,temp,",")
wend
l2=len(str)
response.write replace(temp,",","") &":"& (l1-l2)/(len(temp)-1)&"<br>"
wend
%>

lzp4881 2009-08-06

打赏
举报

<%
dim a : a = Array(1,1,2,3,1,2,3,4,5,6,1,1,4,5,6,2,22,22,222,2,3,4,5,6,6,5,1,2,3,4,5,6,1,2,3,4,5,6,3,2,1,22,222,22,22,222,3,4,5,6,2,3,1,2,3,4,5,6,6,5,4,3,2,1)
str=","&join(b,",")&","
while len(str)<>1
temp=left(str,instr(2,str,","))
l1=len(str)
while instr(str,temp)<>0
str=replace(str,temp,",")
wend
l2=len(str)
response.write replace(temp,",","") &":"& (l1-l2)/(len(temp)-1)&"<br>"
wend
%>

llpoo 2009-08-06

打赏
举报

我意思就是通用类型的循环处理

toury 2009-08-06

打赏
举报

[Quote=引用 5 楼 llpoo 的回复:]
toury,谢谢你的关注。我要的只是得出数组各个值出现的次数。希望算法不要跟语言相关，即ASP里写了这个算法，那么用到php或JS或java或C只要改变几个关键的控制符就好了，不要特定的内置函数
[/Quote]
各语言基本通吃的代码？惭愧，本人才疏学浅哈：））玩笑~~
比较通用的就是做循环了，也不麻烦，但效率就谈不上了，呵呵
另外：
For Each x In c
response.write x & " = " & c.Item(x)'这里输出的就是“数组各个值出现的次数。”
Next

llpoo 2009-08-06

打赏
举报

toury,谢谢你的关注。我要的只是得出数组各个值出现的次数。希望算法不要跟语言相关，即ASP里写了这个算法，那么用到php或JS或java或C只要改变几个关键的控制符就好了，不要特定的内置函数

toury 2009-08-06

打赏
举报



<%

a = Array(1, 1, 2, 3, 1, 2, 3, 4, 5, 6)

Set c = CreateObject("Scripting.Dictionary")

a1 = 0: a2 = 0



For i = 0 To UBound(a)

   If c.Exists(a(i)) Then

     d = CInt(c.Item(a(i)))

     d = d + 1

     c.Item(a(i)) = CStr(d)

   Else

      c.Add a(i), 1

      d = 1

   End If



   If d > a2 Then

      a1 = a(i):      a2 = d

   End If

Next





For Each x In c

   response.write x & " = " & c.Item(x)

Next

response.write "最多的是:"; a1 & ",出现了" & a2 & "次"



%>

llpoo 2009-08-06

打赏
举报

可以不用Recordset实现吗？

shenzhenNBA 2009-08-06

打赏
举报

老大，回答比较快啊，有创新，呵呵...支持

hookee 2009-08-06

打赏
举报



DIM a(9) 

a(0)=1 

a(1)=1 

a(2)=2 

a(3)=3 

a(4)=1 

a(5)=2 

a(6)=3 

a(7)=4 

a(8)=5 

a(9)=6



Set rs = CreateObject("ADODB.Recordset")

rs.CursorLocation = 3

rs.Fields.Append "val", 3

rs.Fields.Append "cnt", 3

rs.Open

rs.AddNew

rs("val") = a(0)

rs("cnt") = 1

rs.Update

For i=1 To UBound(a)

    rs.MoveFirst

    rs.Find "val=" & a(i)

    If Not rs.EOF Then

        rs("cnt") = rs("cnt") + 1 

    Else

        rs.AddNew

        rs("val") = a(i)

        rs("cnt") = 1

    End If

    rs.Update

Next



rs.Sort = "cnt desc"

rs.MoveFirst

i=1

s = ""

Do While Not rs.EOF

  s = s & i & ". " & rs("val") & " " & rs("cnt") & VbCrLf & "<br>"

  rs.MoveNext

  i = i + 1

Loop

Response.Write s

求一个比较高效的数组查找算法

相关推荐