northwolves[狼行天下] 的专栏

无知无惧,无欲无敌。

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]northwolves的公告

<a href="http://www2.clustrmaps.com/counter/maps.php?url=http://blog.csdn.net/northwolves" id="clustrMapsLink"><img src="http://www2.clustrmaps.com/counter/index2.php?url=http://blog.csdn.net/northwolves" style="border:1px solid;" alt="Locations of visitors to this page" title="Locations of visitors to this page" id="clustrMapsImg" width=225 height=150 onError="this.onError=null; this.src='http://clustrmaps.com/images/clustrmaps-back-soon.jpg'; document.getElementById('clustrMapsLink').href='http://clustrmaps.com'" /> </a>  <script type="text/javascript"></script> <script src="http://www.getafreelancer.com/widgets/projects/vertical.js"></script> <div id="GAF_projects_vertical_box" style="width: 230px;padding: 0px; font-family:sans-serif; font-size: 12px;"> <div style="padding: 5px; overflow: hidden"> <div style="padding-bottom: 4px"><div style="float:right"><a href="http://www.getafreelancer.com/widgets/"><img src="http://www.getafreelancer.com/img/widgets/duder.png" alt="Make Money Now" height=30 border=0></a></div> <a href="http://www.getafreelancer.com/" target="_blank"><font color="blue" style="text-decoration: none">Freelance jobs</font></a> on <b><a href="http://www.getafreelancer.com/" target="_blank"><font color="blue">Freelancer.com</font></a></b> </div> <div id="GAF_projects_vertical"> </div> </div> <div align="right"> Find more <a href="http://www.getafreelancer.com/sellers/" target="_blank">freelance jobs</a></div> </div> <script src="http://api.getafreelancer.com/Project/Search.json?aff=320338&callback=GAF_update_projects_vertical_callback&order=rand&count=5&iads=true&nonpublic=0&charset=UTF-8"></script>

[编辑]文章分类

[编辑]my app

存档

猴子选大王的四种VB解法收藏

题目:

一堆猴子编号依次是1，2，3 ...n ,这群猴子（n个）按照1到n的顺序围坐一圈，从第1开始报数，报双数的猴子离开此圈，这样依次下来，直到圈中只剩下最后一只猴子，则该猴子为大王。

解法:

1.集合的方法(O(2N)):

Function Monkeyking(ByVal n As Long) As Long Dim all As New Collection, i As Long For i = 1 To n all.Add i Next While all.Count > 1 all.Add all(1) all.Remove 1 all.Remove 1 Wend Monkeyking = all(1) End Function

2.直接循环取模(O(N)):

Function Monkeyking(ByVal n As Long) As Long Dim i As Long, K As Long For i = 2 To n K = (K + 2) Mod i Next Monkeyking = K + 1 End Function

3.递归(O(LOG N)):

Function Monkeyking(ByVal n As Long) As Long If n = 1 Then Monkeyking = 1: Exit Function Monkeyking = 2 * (Monkeyking(n \ 2) + (n And 1)) - 1 End Function

4. 公式:

Function Monkeyking(ByVal n As Long) As Long Monkeyking = 2 * (n - 2 ^ Int(Log(n) / Log(2))) + 1 End Function

以上四种方法不仅代码越来越短,而且效率越来越高.

发表于 @ 2009年02月10日　15:30:00 | 评论( loading... ) | 编辑| 举报| 收藏