Skip to main content
added 2 characters in body
Source Link

R, 4446 bytes

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

Try it online!

Reproducing tsh resolution in R.

R, 44 bytes

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

Try it online!

Reproducing tsh resolution in R.

R, 46 bytes

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

Try it online!

Reproducing tsh resolution in R.

added 185 characters in body; deleted 194 characters in body
Source Link

R, 4744 bytes

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

Try it online!Try it online!

Reproducing tsh resolution in R.

R, 47 bytes

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

Try it online!

Reproducing tsh resolution in R.

R, 44 bytes

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

Try it online!

Reproducing tsh resolution in R.

Source Link

R, 47 bytes

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

Try it online!

Reproducing tsh resolution in R.