RでSleep Sort
本当はSys.sleepを使いたいのだがforkの中で使うと動かない。
# install.packages("fork") require("fork") sleep <- function(t) { Map(sqrt, 1:(100000 * t)) } Map(wait, Map(function(x) { fork(function() { sleep(x) cat(x) }) }, c(9,3,7,1,2,6,4,5,8))) # 出力:123456789