底辺私立医大を卒業した医者って頭悪いよね？ Part30

386 ：卵の名無しさん ：2024/03/15(金) 13:19:08.06 ID: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)