x=10; h <- function (n) for (i in 1:n) 1/{1*{1+x}}
i <- function (n) for (i in 1:n) {{{1/{{{1*{{{1+x}}}}}}}}}
A=replicate(60,system.time(h(10^6)))
B=replicate(60,system.time(i(10^6)))
x=10; h <- function (n) for (i in 1:n) 1/(1*(1+x))
i <- function (n) for (i in 1:n) (((1/(((1*(((1+x)))))))))
C=replicate(30,system.time(h(10^6)))
D=replicate(30,system.time(i(10^6)))
boxplot(A[1,],C[1,],B[1,],D[1,])
ks.test(A[1,],C[1,],alternative="g")
ks.test(B[1,],D[1,],alternative="g")

“No me dejaré influenciar por entes superiores”
Ni jefes, ni gobiernos….

Saludos

Tambien comentar que lo que hace

perm ( p, l ) es intentar aumentar la permutacion p por la derecha con nuevos componentes ( los de l ), de manera que se verifique la condicion que aparece en la formula del articulo ( para todo i distinto de j, … ).

perm ( p, l ) hace esto llamandose a si misma recursivamente y en cada interacion recursiva intentando ampliar p con un unico elemento de l. En cada llamada que se hacer a perm ( p, l ), la permutacion p verifica la condicion que antes mencionaba.

Gracias, datanalytics, por el codigo.

*************
Dear Subscriber,

We’ve been hard at work planning how to best integrate Needlebase’s technology with Google’s portfolio, which includes structured-data initiatives like Fusion Tables, Google Refine, Public Data Explorer, and Freebase. As we focus on our next steps, needlebase.com will be retired on June 1. To ensure our community of users has time to export any needed data, the service will remain fully operational until then.

We’re looking forward to sharing future product developments as soon as we can. On behalf of the Needlebase team, thank you for all your feedback and support.

Justin Boyan
Needlebase lead, Google
***********