杀人，你们百度公司也太……太……

针对这个游戏，我用VB写了一段代码，完全符合要求. Private Sub cmdPlay_Click() Dim lngMembers As Long Dim lngStep As Long Dim lngPosKiller As Long lngMembers = Left(Trim(txtInput.Text), 1) lngStep = Mid(Trim(txtInput.Text), 3, 1) lngPosKiller = Right(Trim(txtInput.Text), 1) If lngMembers < 3 Or lngMembers > 10000 Then MsgBox "游戏总成员数不合法，请保证乘员数在[3-10000]之间！", vbInformation, "Identity" Exit Sub End If If lngStep < 1 Or lngStep > lngMembers Then MsgBox "杀人的间隔不合法，请保证杀人的间隔大于0且不大于总乘员数！", vbInformation, "Identity" Exit Sub End If If lngPosKiller > lngMembers Or lngPosKiller < 1 Then MsgBox "杀手初始位置不合法，请保证杀人的初始位置大于0且不大于总乘员数！", vbInformation, "Identity" Exit Sub End If Call DoPlay(lngMembers, lngStep, lngPosKiller) End Sub

接着上面的代码: Private Function DoPlay(ByVal lngMembers As Long, ByVal lngStep As Long, ByVal lngPosKiller As Long) Dim lngFromFlag As Long '开始数的位置 Dim lngPosDead As Long '被杀掉的人的位置 Dim colMembers() As Long '装载玩游戏人的数组 Dim colBridge() As Long '过程中用于过渡的数组，每杀掉一个，就把colMembers数组中剩余的人装载到该数组中 Dim lngI As Long Dim lngJ As Long Dim lngK As Long ReDim colMembers(lngMembers - 1) lngJ = 1 For lngI = 1 To lngMembers colMembers(lngI - 1) = lngI '把玩游戏的成员全部栽入数组colMembers中 Next lngFromFlag = 0 '第一次从数组中的0号位开始顺时针数，也就是编号1的人 ReDim colBridge(lngMembers - 1) Do While UBound(colBridge) > 1 lngPosDead = lngFromFlag + lngStep - 1 If lngPosDead >= lngMembers Then '如果被杀的人的位置超过了总成员数

'接着上面的代码: If lngPosDead = lngPosKiller - 1 Then '在数组中，如果被杀的人刚好是杀手，那么杀手的下面一个人将要被杀掉 lngPosDead = lngPosKiller - 1 + 1 End If lngFromFlag = lngPosDead + 1 '记录下一次开始数的位置，也就是被杀掉的人的下一位开始数 For lngK = lngFromFlag To UBound(colMembers) '被杀掉的人退出游戏，也就是在数组中去掉该值 colMembers(lngK - 1) = colMembers(lngK) Next If lngFromFlag >= lngMembers Then '如果下一次的起始位置超过了总成员数，就用该数减去成员数，也就是形成圆的概念 lngFromFlag = lngFromFlag - lngMembers + 1 End If ReDim colBridge(UBound(colMembers) - lngJ) lngI = 0 Do While lngI <= UBound(colBridge) '把colMembers数组中剩余的人装载到colBridge数组中 colBridge(lngI) = colMembers(lngI)

'接着上面的代码: lngMembers = lngMembers - 1 '一人被杀掉，总成员数减1 lngFromFlag = lngFromFlag - 1 '在新数组中，下一次的起始位置要减去1，因为整体数组中已经有一人退出了游戏 lngJ = lngJ + 1 '定义colBridge数组边界将要缩小的范围 Loop If colBridge(1) <> lngPosKiller Then MsgBox "" & colBridge(1) & "", vbInformation, "Identity" Else MsgBox "" & colBridge(0) & "", vbInformation, "Identity" End If End Function

第一题肯定是送分的，这样的题在我们学数据结构时就做过了，呵呵

这题需要nlog(n)或者更低复杂度的算法才能过

呵呵~ BAIDU也不干好事啊~ 这题说的明确了~所以比较简单~

你也不看看数据范围.... 10000 必须nlogn以下算法 6楼sb

关注百度之星~~~~~~~~！

简单