(originally posted December 02, 2009, 21:44)
## `*` is the hyper of `+`, `^` is the hyper of `*`
> hyper <- function(fn) function(a,b) Reduce(fn, rep(a,b))
> compose <- function(fn1,fn2) function(x) fn1(fn2(x))
> hyperoperation <- function(n) Reduce(compose,listRep(hyper,n))(`+`)
('rep(obj,n)' and 'listRep(obj,n)' just return a list containing
(
Read more... )