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

---

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

---

964(1): 2024/05/08(水)16:56 ID:Q+Icxp4f(3/7) AAS
>>960
レスありがとうございます。
想定解通りです。

Wolfram言語の練習に自作して自答した問題です。

おまけ　コードのサラダ

txt="0.00002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010
";
str=StringSplit[txt,"."][[2]];
str=StringSplit[str,""];
ls=Length[str];
d=str[[5;;ls]];
digits=1000;
f[x_] := (
u=d[[1;;x]];
n=Floor[Length[d]/x];
Flatten[Table[u,n]]==d[[1;;(x*n)]]
)
l=Select[Range[digits/2],f][[1]];(* l=48 *)

StringJoin[d[[1;;l]]]
nu=3^^211112202022121222102222011110020200101000120000;
IntegerString[(3^48-1)*3^4,3]
de=3^^2222222222222222222222222222222222222222222222220000;
nu/de

---

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

---

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

---

ぬこの手 ぬこTOP 0.016s