Return to Answer

deleted 66 characters in body

edited Dec 31, 2013 at 19:14

2.5k
3
15
26

R, 7845

function(x,r){for(i in 1:r){n=sum(x|T);x=c(x[1],filterx=c(x,c(1,1)0)[-n]+c(0,x[n]x)};x}

Example usage:

fun <- function(x,r){for(i in 1:r){n=sum(x|T);x=c(x[1],filterx=c(x,c(1,1)0)[-n]+c(0,x[n]x)};x} fun(c(3, 1, 2), 1) [1] 3 4 3 2 fun(c(3, 1, 2), 2) [1] 3 7 7 5 2 fun(c(3, 1, 2), 5) [1] 3 16 37 50 45 28 11 2

R, 78

function(x,r){for(i in 1:r){n=sum(x|T);x=c(x[1],filter(x,c(1,1))[-n],x[n])};x}

Example usage:

fun <- function(x,r){for(i in 1:r){n=sum(x|T);x=c(x[1],filter(x,c(1,1))[-n],x[n])};x} fun(c(3, 1, 2), 1) [1] 3 4 3 2 fun(c(3, 1, 2), 2) [1] 3 7 7 5 2 fun(c(3, 1, 2), 5) [1] 3 16 37 50 45 28 11 2

R, 45

function(x,r){for(i in 1:r)x=c(x,0)+c(0,x);x}

Example usage:

fun <- function(x,r){for(i in 1:r)x=c(x,0)+c(0,x);x} fun(c(3, 1, 2), 1) [1] 3 4 3 2 fun(c(3, 1, 2), 2) [1] 3 7 7 5 2 fun(c(3, 1, 2), 5) [1] 3 16 37 50 45 28 11 2

Source Link

answered Dec 31, 2013 at 19:04

Sven Hohenstein

2.5k
3
15
26

R, 78

function(x,r){for(i in 1:r){n=sum(x|T);x=c(x[1],filter(x,c(1,1))[-n],x[n])};x}

Example usage:

fun <- function(x,r){for(i in 1:r){n=sum(x|T);x=c(x[1],filter(x,c(1,1))[-n],x[n])};x} fun(c(3, 1, 2), 1) [1] 3 4 3 2 fun(c(3, 1, 2), 2) [1] 3 7 7 5 2 fun(c(3, 1, 2), 5) [1] 3 16 37 50 45 28 11 2