для всех способных держать оружие ходить по ссылкам :)
http://blog.revolutionanalytics.com/2010/10/fibonacci-1-liners.html
для Ъ
очередной вброс информации от Революшен «что можно в R эффективно писать for» http://blog.revolutionanalytics.com/2010/09/newtwitter-design-based-on-a-gold... закончился водопадом однострочников делающих то же самое но «без for»
как я предполагаю --- истинная причина невозможность организовать галеру с кодерами на R лежит в невозможно медленном исполнении "индусногоиндусриального кода" в этом языке
например при наличии зонда человек пишет так (проверяют наблюдая как сходится «золотое сечение»):
require(iterators)
## Generator for Fibonacci sequence
iFib <- function() {
lastFib <- 0
nextFib <- 1
nextEl <- function() {
newLast <<- nextFib
nextFib <<- lastFib + nextFib
lastFib <<- newLast
lastFib
}
it <- list(nextElem = nextEl)
class(it) <- c('abstractiter','iter')
it
}
«лишенцы» пишут в R как то так (наиболее органичный пример)
f=function(n){k=1:n;ifelse(n<1,0,sum(choose(n-k,k-1)))}
print(sapply(1:100,f))
или так
> cfrac <- function(x) Reduce(function(u, v) u + 1 / v, x, right = TRUE)
> cfrac(rep(1,10))
не понять им всей прелести коллективной гребли :)