RosettaCodeData/Task/Babbage-problem/R/babbage-problem.r

9 lines
144 B
R
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
babbage_function=function(){
n=0
while (n**2%%1000000!=269696) {
n=n+1
}
return(n)
}
babbage_function()[length(babbage_function())]