2011-06-01から1ヶ月間の記事一覧
以下を参考に.. SICP 3.5 Diaspar Journal 関数型(12) - 無限リスト # 無限リスト[x, fn(x), fn(fn(x)), ... ]を作る infinite.stream <- function(x, fn){ list(car=x, cdr=function() infinite.stream(fn(x),fn)) } # 無限リストlstから最初のn項のベク…
以下を参考に.. SICP 3.5 Diaspar Journal 関数型(12) - 無限リスト # 無限リスト[x, fn(x), fn(fn(x)), ... ]を作る infinite.stream <- function(x, fn){ list(car=x, cdr=function() infinite.stream(fn(x),fn)) } # 無限リストlstから最初のn項のベク…