Comments by "Митяй К51" (@Dimonshirson) on "Разгадка, в которую невозможно поверить: задача о 100 заключённых [Veritasium]" video.

  1. Игрок №19 должен начинать с коробки 19, а коробку 5 оставить игроку 5.
    3
  2. Мне кажется системная ошибка в оценке длины цепочек. Нужно смоделировать численно.
    3
  3. Простое численное моделирование. Может быть и сделаю, мне стало интересно. В том же visual basic или pyton.
    2
  4.  @Misha-db3wi  как формируешь массив коробок с числами?
    1
  5.  @Misha-db3wi  Не совсем знаком со словарём. Просто RND без проверки повторений? Я выложил VBA - каждое сгенерированное значение содержимого коробки проверяю на уникальность по всем предыдущим позициям. Второй раз я бы сделал - заполняю коробки по порядку 1-2-3-4... 100 и потом 100 раз генерирую пару чисел и переставляю содержимое в этой паре коробок.
    1
  6. Public Sub game() WinG = 0 LosG = 0 Cells(102, 2) = "Max count" Cells(102, 5) = "Win" Cells(102, 7) = "Lose" Dim Box(100) As Integer Dim Cnt(100) As Integer Dim Stat(100) As Integer For Games = 1 To 1000 For i = 1 To 100 NI = Int((100 - 1 + 1) * Rnd + 1) Box(i) = NI j = 1 While j <= i If Box(i) = Box(j) And i <> j Then Box(i) = Int((100 - 1 + 1) * Rnd + 1): j = 0 j = j + 1 Wend Next i For i = 1 To 100 Cells(i, 1) = Box(i) Next i For r = 1 To 100 Cntr = 1 Chkr = Box(r) While Chkr <> r Chkr = Box(Chkr) Cntr = Cntr + 1 Wend Cnt(r) = Cntr Next r For r = 1 To 100 Cells(r, 3) = Cnt(r) Next r MaxRCnt = 0 For r = 1 To 100 If Cnt(r) >= MaxRCnt Then MaxRCnt = Cnt(r) Stat(Cnt(r)) = Stat(Cnt(r)) + 1 Next r If MaxRCnt > 50 Then LosG = LosG + 1 Else WinG = WinG + 1 Cells(102, 6) = WinG Cells(102, 8) = LosG Next Games For s = 1 To 100 Cells(s, 5) = Stat(s) Next s End Sub
    1
  7. Visual basic 4 Excel. Играет 1000 игр, первый столбец 100 линий отражает содержимое ящиков для каждой игры, второй столбец отражает число поисков своего номера для каждого участника для каждой игры; после цикла третий столбец отражает число каждой длины цепочки поисков. Внизу ячейка max отражает максимальное число поисков в каждой игре, ячейки win и lose отражают результат после цикла игр. Примерно на 1000 попыток 300 выигрышей и 700 поражений.
    1
  8. Нет, оказывается всё правильно. Вводится дополнительная информация номеров коробок и условия распределения - и вот результат.
    1
  9.  @MrCoolDeagle34rus  У меня на 10к прогонов 3170 побед и 6830 поражений.
    1