« first day (1508 days earlier)      last day (2303 days later) » 

4:25 PM
f <- compiler::cmpfun(function(x){
    if (x==1L) return(FALSE)
    if (x==2L) return(TRUE)
    for (k in 2L:ceiling(sqrt(x))) if (!(x %% k)) return(FALSE)
    return(TRUE)
8})

rf <- compiler::cmpfun(local({
    res <- rep(NA, 1e9)
    function(x){
        if (!is.na(res[x])) return(res[x])
        if (x==1L) { return((res[x] <<- FALSE)) }
        if (x==2L) { return((res[x] <<- TRUE)) }
        for (k in 2L:ceiling(sqrt(x))){
            if (is.na(res[k])) rf(k)
            if (res[k] && !(x %% k)) return((res[x] <<- FALSE))
glad both mean and median get shown there
kind of confused at how max can be less than min, though...
oh, i guess that's just thanks to "relative" applied independently to each col
 

« first day (1508 days earlier)      last day (2303 days later) »