[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

910(3): 2024/05/06(月)15:16 ID:xxhQy/YG(21/23) AAS
>>884
循環節を計算するR言語のスクリプト
d=unlist(read.csv('10000.csv',header = FALSE))
f=\(x){
u=d[1:x]
n=length(d)%/%x
all(rep(u,n)==d[1:(x*n)])
}
y=sapply(1:1000,f)
which(y)

これを移植

循環節を計算するWolfram言語のスクリプト
d=RealDigits[1/2024,2,10000][[1]];

f[x_] := (
u=d[[1;;x]];
n=Floor[Length[d]/x];
Flatten[Table[u,n]]==d[[1;;(x*n)]]
)
Select[Range[1000],f]

答が出せた。数字が０１だけなので目視で循環節の見当をつけるのは至難の技。
東大合格者の解答が投稿されたら照合の予定。

---

上下前次1-新書関写板覧索設栞歴

---

あと 92 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.007s