[第40期]字符串的DNA 已结

彭希仁

QUOTE:

以下是引用ldy在2008-10-23 19:11:00的发言：

想到了一个更加 好的方法 可以不用按照取前15位 的做法，减少第二种方法的错误概率10倍。

13楼附件中的getDNA过程中两处地方 小改一下

 Dim DNA As Double, DNAS As String * 15    改为  Dim DNA As Double, DNAS As String

 DNAS = DNA                                改为  DNAS = Log(DNA)

如此一改 DNAS 的结果 像这样 "4.42151540977897" 最长15位数字（不含小数点）

其出错的概率 为 1/10^15 ， 10 兆分之一 ，如果不是刻意去计算的话，这辈子估计是碰不上的了。

d

只要存在运气的问题,就存在冒险

ldy

QUOTE:

以下是引用zldccmx在2008-10-23 23:18:00的发言：

哈哈，宁可错杀一千，也不放过一个! 不怕一万，就怕万一哦!

老朽以为，不能以几率论，哪怕是兆兆兆兆...........分之一，都是不可取的!

老朽是个循规蹈矩的人，所以对这种冒险做法不太认同!

因为，一旦错了就有可能造成无法挽回的损失!

老朽觉得，学术如此，生活更是如此! [em05][em05]

 

{54A55BDC-3E27-4E96-A62A-E50C9597E7FB}　这样的东西看着眼熟吧，每一个程序都有这么一个 GUID
 

这个东西也是有重复几率的1/16^32 ，就是兆兆兆兆......分之一，整个电脑系统都是在这样的几率下运行。  

呵呵，抬抬杠，知道了这种情况，你是不是不用电脑了？。

to  HHMMAA

CHR(1) ,确实有点抬杠，log(1)=0

如果仅有这一个的话，可以用 DNA = DNA + (Log(Abs(Asc(Mid(s, j, 1)) + 0.1))) 处理 并不影响效率

还能找到其他的错误吗？呵呵，抬杠的也行。

某伟人说过 抬杠使人进步

[此贴子已经被作者于2008-10-24 20:31:56编辑过]

xiangchendub

好久不来了，谢谢ldy版主帮我"挡箭" 哈。
不过自己的确汗颜，此题作法显然有点"偷鸡"了.

用log 就是为了rescale，取精度舍数量级，如果用相乘，平方，立方很容易
导致overflow，简单的log变换后之和相等就相当于每套字符串asc的质数集合
相同，这样的例子有很多。 以2位字符串为例：
(log(32)+log(48)) = (log(24)+log(64))＝(log(12)+log(128)) ........
当然有很多都是“乱码“。

泓()

学
习
!!!!

dongwenquan

xiangchendub 发表于 2008-9-30 15:29
答案已发送，跟帖占位。Left(sc, 15)  这个用的好，答题者中最快，由于本期题目属于火锅奖，再额外加分 ...

For Each elmt In arr
    For i = 1 To Len(elmt)
        sc = sc + Log(Abs(Asc(Mid(elmt, i, 1))))'这句什么意思，我没看懂哟
    Next
        If Not ds.exists(Left(sc, 15)) Then
        ds(Left(sc, 15)) = elmt
    Else
        ds(Left(sc, 15)) = ds(Left(sc, 15)) & " " & elmt
    End If
   
    sc = 0
Next

jsxjd

ldy 发表于 2008-10-23 00:59
QUOTE:适逢国庆，这次的题目较简单，属于送分的题目。QUOTE:普通的提取重复值，加了一些变化，打乱了字符顺 ...

第二种怎么能算方法？
“AB” 和"7N" 的所谓 DNA是相同的

FOB_FN_L

不再有更好的方法了么，大神们该出手了

sj15627581616

关于第二个方法我觉得可以再加个判断，字典中log值一样的话  还可以追加字符是否包含，完全一致一定包含一个字符，不一致纯粹log值一致的话*10就可以作为key值写入可能性就更少了吧