R/_old_seek-seeds-job.R

In fjodor/MagicNumbers: Explore set.seed() to Create Random Texts

seek_seed <- function(seed, size, message) {
  set.seed(seed)
  text <- sample(letters, size = size, replace = TRUE) |>
    paste(collapse = "")
  text == message
}

iterate_seeds <- function(cl, .seeds, .message) {
  size <- nchar(.message)
  clusterApply(cl, .seeds, function(x) {
    # print(paste("Seed:", x))
    res <- seek_seed(x, size = size, message = .message)
    if (res) stop(paste("Success: Seed:", x))
  })
  invisible(NULL)
}

test_seed <- function(seed, choices, message) {
  set.seed(seed)
  sample(choices, size = nchar(message), replace = TRUE) |>
    paste(collapse = "") |>
    stringr::str_to_title()
}

library(parallel)
cl <- makeCluster(parallelly::availableCores(omit = 2))
clusterExport(cl, "seek_seed")

#-------------------------------------------------------------#

# Speed test

# system.time(iterate_seeds(cl, 0:1e4, "merry")) # 1.05s
# system.time(seek_seeds_word(0:1e4, "merry")) # 11.81s
# system.time(seek_seeds_word(0:1e4, "merry", .progress = FALSE)) #0.13s
# system.time(seek_seeds_word(0:1e4, "merry", .eval = "par", cl)) # 3.47s

# iterate_seeds(cl, 18e6:20e6, "merry")
# iterate_seeds(cl, 194e5:195e5, "merry")

# iterate_seeds(cl, 0:1e6, "love")
# test_seed(249725, letters, "xxxx")
# test_seed(249725, 4)

# iterate_seeds(cl, 0:1e6, "happy")
# iterate_seeds(cl, 1e6:4e6, "happy")
# test_seed(2219868, letters, "xxxxx")
# test_seed(2219868, 5)

# iterate_seeds(cl, 0:5e6, "year")
# test_seed(443238, 4)

# iterate_seeds(cl, 0:5e6, "new")
# test_seed(10641, 3)

# bench::mark(
#   iterate_seeds(cl, 0:5e3, "test"),
#   seek_seeds_word(0:5e3, "test", .eval = "par", cl)
# )
# :-( old function more than 3x faster than newer package function

# iterate_seeds(cl, 0:5e6, "bday")
# test_seed(110454, 4)

# iterate_seeds(cl, 0:5e6, "best")
# test_seed(135996, 4)

# iterate_seeds(cl, 0:5e6, "wishes")
# iterate_seeds(cl, 5e6:10e6, "wishes")
# iterate_seeds(cl, 10e6:15e6, "wishes")
# iterate_seeds(cl, 15e6:20e6, "wishes")
# iterate_seeds(cl, 20e6:25e6, "wishes")
# iterate_seeds(cl, 25e6:35e6, "wishes")
# iterate_seeds(cl, 35e6:50e6, "wishes")
# iterate_seeds(cl, 50e6:60e6, "wishes")
# iterate_seeds(cl, 60e6:75e6, "wishes")
# iterate_seeds(cl, 75e6:90e6, "wishes")
# iterate_seeds(cl, 90e6:10e7, "wishes")
# iterate_seeds(cl, 10e7:12e7, "wishes")
# iterate_seeds(cl, 12e7:14e7, "wishes")
# iterate_seeds(cl, 14e7:16e7, "wishes")

# iterate_seeds(cl, 0:5e6, "you")
# MagicNumbers::test_seed(1750, 3)

#------------------------------------------------------#

library(parallel)
cl <- makeCluster(parallelly::availableCores(omit = 1))
plan(cluster)

seek_seeds_word(16e7:18e7, "wishes", .eval = "future", .progress = FALSE, cl)