儿童游戏旨在帮助儿童在加拿大学校学习法语计数,游戏内容如下:
考虑一下简单的例子:
Player1 | Player2
01 |
02 |
03 |
| 04
| 05
| 06
07 |
08 |
| 09
10 |
| 11
Player 1 wins9和10之间作出决定。- Outputting 2 or 3 numbers will cause them to go over 1101、_1或空格,任何使您高兴的内容)|隔开,行的开头和结尾处应有一个|。xx填充。Bot #N is the winner的形式宣布哪个机器人是赢家。|01|02|03|
|01| | |
|02| | |
|03| | |
| |04| |
| | |05|
| | |06|
|07| | |
| |08| |
| |09| |
| |10| |
| | |11|
|01| |xx|
|02| |xx|
|03| |xx|
| |04|xx|
| |05|xx|
|06| |xx|
| |07|xx|
|08| |xx|
| |09|xx|
| |10|xx|
|11| |xx|
Bot #2 is the winner输出可能会变长,因此只允许输出最终数目的机器人,例如,上面的输出变成了:
|01|02|03|
|03| | |
| |04| |
| | |06|
|07| | |
| |10| |
| | |11|
|03| |xx|
| |05|xx|
|06| |xx|
| |07|xx|
|08| |xx|
| |10|xx|
|11| |xx|
Bot #2 is the winner有5个机器人:
|01|02|03|04|05|
|01| | | | |
| |04| | | |
| | |05| | |
| | | |07| |
| | | | |10|
|11| | | | |
|xx|01| | | |
|xx| |03| | |
|xx| | |06| |
|xx| | | |09|
|xx|10| | | |
|xx| |11| | |
|xx| |xx|02| |
|xx| |xx| |03|
|xx|05|xx| | |
|xx| |xx|07| |
|xx| |xx| |08|
|xx|10|xx| | |
|xx| |xx|11| |
|xx| |xx|xx|01|
|xx|03|xx|xx| |
|xx| |xx|xx|04|
|xx|07|xx|xx| |
|xx| |xx|xx|08|
|xx|10|xx|xx| |
|xx| |xx|xx|11|
Bot #2 is the winner有10名球员:
|01|02|03|04|05|06|07|08|09|10|
|01| | | | | | | | | |
| |04| | | | | | | | |
| | |05| | | | | | | |
| | | |08| | | | | | |
| | | | |09| | | | | |
| | | | | |10| | | | |
| | | | | | |11| | | |
| | | | | | |xx|02| | |
| | | | | | |xx| |04| |
| | | | | | |xx| | |07|
|09| | | | | |xx| | | |
| |10| | | | |xx| | | |
| | |11| | | |xx| | | |
| | |xx|01| | |xx| | | |
| | |xx| |02| |xx| | | |
| | |xx| | |03|xx| | | |
| | |xx| | | |xx|04| | |
| | |xx| | | |xx| |07| |
| | |xx| | | |xx| | |08|
|09| |xx| | | |xx| | | |
| |10|xx| | | |xx| | | |
| | |xx|11| | |xx| | | |
| | |xx|xx|02| |xx| | | |
| | |xx|xx| |03|xx| | | |
| | |xx|xx| | |xx|05| | |
| | |xx|xx| | |xx| |08| |
| | |xx|xx| | |xx| | |09|
|10| |xx|xx| | |xx| | | |
| |11|xx|xx| | |xx| | | |
| |xx|xx|xx|03| |xx| | | |
| |xx|xx|xx| |05|xx| | | |
| |xx|xx|xx| | |xx|08| | |
| |xx|xx|xx| | |xx| |10| |
| |xx|xx|xx| | |xx| | |11|
|01|xx|xx|xx| | |xx| | |xx|
| |xx|xx|xx|03| |xx| | |xx|
| |xx|xx|xx| |06|xx| | |xx|
| |xx|xx|xx| | |xx|08| |xx|
| |xx|xx|xx| | |xx| |09|xx|
|10|xx|xx|xx| | |xx| | |xx|
| |xx|xx|xx|11| |xx| | |xx|
| |xx|xx|xx|xx|03|xx| | |xx|
| |xx|xx|xx|xx| |xx|05| |xx|
| |xx|xx|xx|xx| |xx| |06|xx|
|08|xx|xx|xx|xx| |xx| | |xx|
| |xx|xx|xx|xx|09|xx| | |xx|
| |xx|xx|xx|xx| |xx|10| |xx|
| |xx|xx|xx|xx| |xx| |11|xx|
|02|xx|xx|xx|xx| |xx| |xx|xx|
| |xx|xx|xx|xx|05|xx| |xx|xx|
| |xx|xx|xx|xx| |xx|08|xx|xx|
|09|xx|xx|xx|xx| |xx| |xx|xx|
| |xx|xx|xx|xx|10|xx| |xx|xx|
| |xx|xx|xx|xx| |xx|11|xx|xx|
|01|xx|xx|xx|xx| |xx|xx|xx|xx|
| |xx|xx|xx|xx|04|xx|xx|xx|xx|
|07|xx|xx|xx|xx| |xx|xx|xx|xx|
| |xx|xx|xx|xx|10|xx|xx|xx|xx|
|11|xx|xx|xx|xx| |xx|xx|xx|xx|
Bot #6 is the winner发布于 2018-04-25 03:46:13
CellA1作为即时窗口中的输入和输出。
Sub k()
Z = [A1] - 1
ReDim p(Z)
For b = 0 To Z
p(b) = " "
Next
Do Until i = Z
Do Until a >= 11
Randomize
a = a + CInt(IIf(a > 8, 1, IIf(a > 7, 1 + Rnd, 1 + (Rnd * 2))))
Do Until p(d) = a
p(y) = IIf(p(y) = "xx", p(y), a)
d = y
y = IIf(y = Z, 0, y + 1)
Loop
For b = 0 To Z
c = c & IIf(p(b) < 10, 0 & p(b), p(b)) & "|"
g = IIf(p(b) = " ", b, g)
p(b) = IIf(p(b) = "xx", "xx", " ")
Next
Debug.Print "|" & c
Application.Wait Now + #12:00:01 AM#
DoEvents
c = ""
Loop
p(d) = "xx"
i = i + 1
a = 0
Loop
Debug.Print "Bot #" & g + 1 & " is the winner."
End Subhttps://codegolf.stackexchange.com/questions/162762
复制相似问题