Return to Answer

added 2 characters in body

edited Mar 9, 2022 at 13:10

R, 4446 bytes

functionf=function(n)if(n)c(p<-round((2*n)^.5),f(n-p))

Reproducing tsh resolution in R.

function(n)if(n)c(p<-round((2*n)^.5),f(n-p))

Reproducing tsh resolution in R.

f=function(n)if(n)c(p<-round((2*n)^.5),f(n-p))

Reproducing tsh resolution in R.

added 185 characters in body; deleted 194 characters in body

edited Mar 9, 2022 at 9:57

edited Mar 9, 2022 at 9:57

function(n)if(n)c(p<-floorround((2*n)^.5+.5),f(n-p))

Reproducing tsh resolution in R.

function(n)if(n)c(p<-floor((2*n)^.5+.5),f(n-p))

Reproducing tsh resolution in R.

function(n)if(n)c(p<-round((2*n)^.5),f(n-p))

Reproducing tsh resolution in R.

answered Mar 9, 2022 at 9:51

answered Mar 9, 2022 at 9:51

function(n)if(n)c(p<-floor((2*n)^.5+.5),f(n-p))

Reproducing tsh resolution in R.