jdnewmil

Deque Comparisons

Jeff Newmiller 2022-12-29

Scope

Regarding how to speed up deques discussion on Reddit…

jdnewmil

Danger using log1p

suppressPackageStartupMessages({
  library(dplyr)
  library(tidyr)
  library(ggplot2)
  library(broom)
})

jdnewmil

library(dplyr)
library(tidyr)
library(purrr)
library(readr)
library(stringr)
library(microbenchmark)

# matrix/iterative ----

parse_keyval <- function( s, pat, keyname, valname ) {

jdnewmil

sudoku <- matrix( data = c(0,0,0,0,0,6,0,0,0
                          ,0,9,5,7,0,0,3,0,0
                          ,4,0,0,0,9,2,0,0,5
                          ,7,6,4,0,0,0,0,0,3
                          ,0,0,0,0,0,0,0,0,0
                          ,2,0,0,0,0,0,9,7,1
                          ,5,0,0,2,1,0,0,0,9
                          ,0,0,7,0,0,5,4,8,0
                          ,0,0,0,8,0,0,0,0,0)
                , byrow = TRUE

jdnewmil

# future_patch.R

mymakeNodePSOCK <- function( worker = "localhost"
                           , master = NULL
                           , port
                           , connectTimeout = getOption( "future.makeNodePSOCK.connectTimeout"
                                                       , as.numeric( Sys.getenv( "R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT"
                                                                               , 2 * 60
                                                                               )
                                                                   )

jdnewmil

# future_patch.R

mymakeNodePSOCK <- function( worker = "localhost"
                           , master = NULL
                           , port
                           , connectTimeout = getOption( "future.makeNodePSOCK.connectTimeout"
                                                       , as.numeric( Sys.getenv( "R_FUTURE_MAKENODEPSOCK_CONNECTTIMEOUT"
                                                                               , 2 * 60
                                                                               )
                                                                   )