24/03/15 13:19:08.06 OtPeJ8+O0.net
f=function(x,n=2){
a=b=numeric()
i=1
b0=x
a[i]=floor(b0*n)
b[i]=b0*n - a[i]
b[i]=round(b[i],2)
while(b[i]!=0 & !(b[i] %in% b[-i])){
i=i+1
a[i]=floor(b[i-1]*n)
b[i]=b[i-1]*n-a[i]
b[i]=round(b[i],2)
}
cat(paste0('0.',paste(a,collapse=''),collapse=''),'\n')
b
}
f(0.595)