2012-06-20から1日間の記事一覧
前回(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 …
前回(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 …