分からない問題はここに書いてね448

分からない問題はここに書いてね448 at MATH

462:１３２人目の素数さん
18/11/04 23:08:20.12 lTCeMsqQ.net
>>414
C[70,7]通りのRのスクリプトを書いてみた。
正確にはC[70,8]*C[8,3]=528659651520通リｗｗｗ
他の言語に移植する人いるかなぁ？

is.1_70 <- function(x){
total=NULL
for(i in x){
for(j in x){
for(k in x){
ijk=i+j+k
if(!(ijk %in% total)) total=append(total,ijk)
}
}
}
all(1:70 %in% total)
}
M=69
for(a

次ページ