面白い問題おしえて～な 28問目

面白い問題おしえて～ ..

585:１３２人目の素数さん
18/12/03 14:56:23.08 QN9IvGKv.net
>>551
いつもの顰蹙、プログラム解
rip <- function(n){
page=(n*(n+1)/2-15000)%/%2
torn=ifelse(page%%2,page,0)
ifelse(0<torn & torn<n,torn,0)
}
rip=Vectorize(rip)
n*(n+1)/2-3=15000
1/2*(5*sqrt(4801)-1) # 172.7231
n*(n+1)/2-(2n-1)=15000
1/2*(3+7*sqrt(2449)) # 174.7058
> rip(173)
[1] 25
> rip(174)
[1] 0

次ページ

続きを表示

1を表示