- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我试图在 VBA 中随机打乱字符串数组,同时确保没有项目保留在同一位置。
到目前为止,我已经将所有项目添加到集合中,然后为了将旧数组映射到已打乱顺序的数组上,我循环遍历项目。每个项目都会从集合中删除自身(因此项目永远不会转变为自身)。然后,它从剩余值中随机选择一个项目,从集合中删除该,并将自身添加回集合中(以便后面的项目可以选择它)。
但是,这有时意味着最后一个项目永远不会被选中,因为最后一个项目无法自行挑选,而所有其他项目都可以在它们之间挑选一些东西
Indices 填充了所有人员,目标和人员都是 1 索引数组,其中后者是要洗牌的数组。
For i = 1 To UBound(people) ' loop through people
stillHere = HasKey(indices, "person" & i) 'only remove self from list if not already taken
If stillHere Then indecies.Remove "person" & i
randNum = Application.WorksheetFunction.RandBetween(1, indices.Count)
targets(i) = people(indices(randNum))
If indices.Count > 1 Then indices.Remove (randNum) 'don't remove the last item of the collection
If stillHere Then indices.Add i, "person" & i 'only add self back if not already taken
Next i
最佳答案
项目的洗牌是这些项目的排列。没有任何项目保留在其原始位置的排列是困惑排列。请参阅:
这是一个非常简单的算法。演示代码用于 5 个项目:
对于输出数组中的每个位置,我们构建一个候选列表,从中进行随机选择。因此第一个输出的候选者排除了“dog”。第二个输出的候选排除“cat”以及为第一个输出选择的任何内容。
每个输出的候选列表都会缩小。最后一个输出的候选列表仅包含一个项目,因此我们选择它。
最后的输出可能与最后的输入相同。如果发生这种不良事件,我们只需交换第一个和最后一个输出。
Sub MAIN()
Dim inpt(1 To 5) As String, Candidate(), j As Long
Dim i As Long, outpt(), Temp, UTemp As Long
Dim U As Long, x
inpt(1) = "dog"
inpt(2) = "cat"
inpt(3) = "mouse"
inpt(4) = "bird"
inpt(5) = "fish"
U = UBound(inpt)
ReDim outpt(1 To U)
ReDim Candidate(1 To U)
For i = 1 To U
Candidate(i) = inpt(i)
Next i
For i = 1 To U
If UBound(Candidate) = 1 Then
outpt(i) = Candidate(1)
Else
outpt(i) = PickValue(Exclude(Candidate, inpt(i)))
Temp = Exclude(Candidate, outpt(i))
UTemp = UBound(Temp)
ReDim Candidate(1 To UTemp)
For j = 1 To UTemp
Candidate(j) = Temp(j)
Next j
End If
If inpt(U) = outpt(U) Then
x = outpt(U)
outpt(U) = outpt(1)
outpt(1) = x
End If
Cells(i, 2) = inpt(i)
Cells(i, 4) = outpt(i)
Next i
End Sub
Exclude()
函数输入一个数组和一个要排除的值,并输出一个从中进行排除的简化数组:
Public Function Exclude(ary As Variant, xClude As Variant) As Variant
Dim c As Collection, i As Long, cCount As Long
Set c = New Collection
For i = LBound(ary) To UBound(ary)
If ary(i) = xClude Then
Else
c.Add ary(i)
End If
Next i
cCount = c.Count
ReDim bry(1 To c.Count)
For i = 1 To cCount
bry(i) = c.Item(i)
Next i
Exclude = bry
Set c = Nothing
End Function
PickValue()
函数输入一个数组并从该数组输出一个随机项:
Public Function PickValue(ary) As Variant
Dim L As Long, U As Long
L = LBound(ary)
U = UBound(ary)
With Application.WorksheetFunction
PickValue = ary(.RandBetween(L, U))
End With
End Function
示例输出:
另一种方法是:
关于arrays - 打乱数组,以便没有项目保留在同一位置,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47479970/
我正在尝试获取从过去的 startposition/location 到当前移动的 currentposition/location 的距离(以米为单位)。 我确实有工作正常的currentposit
所以我有一堆绝对覆盖的 div。用户通过在叠加层上拖动来创建方形 div。如果您要创建一个 div,然后放大和缩小,div 会保持在同一位置,因为它对叠加层是绝对的,如前所述。 然而问题就出在这里。您
我想找到 View 在显示屏幕上的位置。 为此,我使用了 view.getLeft() 、view.getBottom() 、view.getRight() 等方法> , view.getTop()。
我有一个看起来像这样的 View 层次结构(基于其他答案和 Apple 的使用 UIScrollView 的高级 AutoLayout 指南): ScrollView 所需的2 个步骤是: 为 Scr
所以我有一个名为 MARKS 的表,我有这些列 STUDENT_ID, CLASSFORM_NAME, ACADEMIC_YEAR, TERM, SUBJECT_NAME, TOTAL_MARKS
我有一个问题我无法理解,请帮助: 我开发了带有图像的 html 页面,并使用 jQuery UI 帮助使它们可拖动,我将这些图像位置设置为相对位置并给出了左侧和顶部像素,这是页面的链接 http://
我正在尝试创建一个 CSS 动画,它在 sprite 表中循环播放 16 个图像,给人一种幽灵“漂浮”的错觉。动画通过在 background-position 位置之间移动以显示不同状态的幽灵来实现
我正在创建这个网站的 WebView https://nearxt.com/打开时询问位置但是当我使用此链接在 flutter 中创建 webview 时那么它就无法定位我还在应用程序中定义了位置,但
我正在以编程方式创建一个需要跨越 2 个屏幕的窗口。正在创建的窗口的大小是正确的,但窗口大约从第一个屏幕的一半开始。我可以将它拖回第一个屏幕的开头,NSWindow 非常适合。 我只需要知道在窗口的起
位置“/”的匹配叶路由没有元素。这意味着默认情况下它将呈现一个空值,从而导致一个“空”页面 //App.js File import { BrowserRouter as Router, Routes
我有一个运行 Ubuntu 和 Apache 的 VPS 例如,假设地址是:5.5.5.5 在 VPS 上,我有一个名为 eggdrop 的用户(除了我的 root 用户)。 用户 eggdrop 有
我有一个 JLabel与 ImageIcon ,我使用 setIcon() JLabel中的函数. ImageIcon然后上来,坐在我的JLabel 的文字左侧.是否有可能拥有 ImageIcon在文
我的图中有节点,它们的 xlabels 位于它们的左上方。我怎样才能改变这个位置?我希望 xlabels 正好位于节点本身的旁边。 最佳答案 xlp是你想要的属性,但它没有做任何事情。 你不能改变位置
我对基本的 VIM 功能有疑问:(我尝试谷歌搜索但找不到答案) 如何列出所有自定义功能。(我做了 :function 并且不能找到我的自定义函数) 如何获得自定义函数列表中的函数(或它们的存储位置)。
我是 PHP 的新手,虽然我一直在搜索,但我不知道该怎么做。 我知道可以使用 Location("some page") 进行重定向。我还读到,只要没有向用户显示任何内容,它就可以工作。 我想做的是:
如果在 jgrowl.css 中位置更改为“center”,我如何将其覆盖为默认值,即“top-right” $.jGrowl(data, { header: 'data', an
我需要根据用户是否滑动屏幕顶部、屏幕中间或屏幕底部来触发不同的事件。我正在尝试找出最好/最简单的方法来做到这一点,因为我很确定没有办法从 UISwipeGestureRecognizer 获取位置。
我需要枚举用delphi编写的外部应用程序中使用的类 ,因此我需要访问VMT表以获取该信息,但是我找不到任何有关如何在exe(由delphi生成)文件中找到VMT(虚拟方法表)的位置(地址)的文档。
在 D2010 (unicode) 中是否有像 Pos 这样不区分大小写的类似函数? 我知道我可以使用 Pos(AnsiUpperCase(FindString), AnsiUpperCase(Sou
我正在尝试为我的reveal.js 演示文稿制作一个标题,该标题会粘贴在屏幕顶部。标题中的内容在每张幻灯片的基础上都是动态的,因此我必须将标记放在 section 标记中。 显然,如果标记在 sect
我是一名优秀的程序员,十分优秀!