Tekrarlanabilir piyango sonuçları
Çevrimiçi bir piyango için programcı olarak çalışıyorsun. Yasaya göre kazananların rastgele seçilmesi ve bu seçimin şeffaf olması gerekiyor.
Çalışma alanında, piyango biletlerinden oluşan bir listen var: ls_tickets. ls_tickets içinde, her biri bir ABD eyaletini temsil eden 51 öğe bulunuyor. Bu listenin her öğesi, piyango bilet numaralarını içeriyor. Çalışma alanında, her eyalet için kazanan bileti rastgele seçen bir lottery() fonksiyonun var. lottery() fonksiyonunu, future_map() kullanarak paralel biçimde ls_tickets üzerinde uygulayarak test ediyorsun. Sorun şu ki, bu kodu her çalıştırdığında kazananlar değişiyor. Senin için furrr paketi yüklendi.
Bu egzersiz, kursun bir parçasıdır
R'da Paralel Programlama
Egzersiz talimatları
future_map()için bir yapılandırma oluştur.- Yapılandırmada tohumu (seed)
4321olarak ayarla. - Bu yapılandırmayı
future_map()fonksiyonuna ver.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
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)