powered by
count_value(x, value)
med, binary_search
x <- rnorm(10000) value <- x[500] system.time( b <- count_value(x,value) )
Run the code above in your browser using DataLab