Відтворювані результати лотереї

Ви працюєте програмістом в онлайн-лотереї. За законом переможців треба обирати випадково, і процес має бути прозорим.

У вашому робочому середовищі є список лотерейних білетів ls_tickets. У ls_tickets 51 елемент — по одному для кожного штату США. Кожен елемент цього списку містить номери білетів. Також у середовищі є функція lottery(), яка випадково обирає виграшний білет для кожного штату. Ви тестуєте функцію lottery(), застосовуючи її до ls_tickets паралельно за допомогою future_map(). Проблема в тому, що переможці змінюються щоразу, коли ви запускаєте цей код. Пакет furrr уже завантажено.

Ця вправа є частиною курсу

Паралельне програмування в R

Переглянути курс

Інструкції до вправи

Створіть конфігурацію для future_map().
Встановіть зерно (seed) на 4321 у цій конфігурації.
Передайте цю конфігурацію у future_map().

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

lottery <- function(tickets) {
  sample(tickets, 1)
}

# Create a configuration for future_map()
config <- ___(
# Provide the seed 4321 to the correct argument   
  ___ = ___)

plan(multisession, workers = 4)
winners <- future_map(ls_tickets, lottery,
                      # Supply configuration to future_map()
                      ___ = ___)

plan(sequential)

Редагувати та запускати код