Every story and comment from the Hacker News API, in a layout borrowed from 2001.
A comment on It Takes Long to Become Gaussian.
# R lang
samples = 1000
sample_len = 10000
x <- sapply(1:samples, function(i) cumsum(runif(sample_len)))
check_sample_at_len = sample_len
plot(density(x[check_sample_at_len,]))
There are no comments on this comment yet.
# R lang
samples = 1000
sample_len = 10000
x <- sapply(1:samples, function(i) cumsum(runif(sample_len)))
check_sample_at_len = sample_len
plot(density(x[check_sample_at_len,]))