24/05/06 15:16:46.79 xxhQy/YG.net
>>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