2012/06/24〜2012/06/27の間マレーシアのキナバル山に行ってきました。30歳になる前に海外の山を登りたいと思っていてまとまった休みが取れたので登りに行きました。送信者 2012/06/24〜2012/06/28 Mt.Kinabalu若干高山病の症状が出ました（腕が痺れる等）が…

3問目もRで解いてみた。Rの乱数周りの扱いがまだ良く分からないので、もっと速くてきれいなコードがあると思うのですが、一応問題が解けるので良しとします。 prime_factorize <- function(n) { d <- 1 x <- y <- 2 while (d == 1) { rx <- runif(1, min=2, …

前回(id:eji:20120619)の遅延ストリームを使った解答に若干修正を加えました。 stream.end <- function(msg) { msg == "eos" } stream.make <- function(head, tail) { function(msg) { if (msg == "eos") F else if (msg == "head") { head } else if (msg …

最近Rをちょいとかじり始めたので、練習がてら Project Euler の問題を解いてみた Problem2 フィボナッチの遅延ストリームを使って問題を解いてみた。Rにマクロのようなものが見当たらなかったので、クロージャで代用した。 stream.end <- function(msg) { m…