- 899 名前：１３２人目の素数さん mailto:sage [2024/05/06(月) 05:48:05.53 ID:xxhQy/YG.net]
- >>865
Wolfram言語による解法
a=1/(14^^2024);
m=2024;
re={};
For[i=1,i<m,i++,(re=Append[re,Floor[a*14^i]]; a=a-(14^-i)*Floor[a*14^i];)];
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]]
StringJoin["0.",f /@ re]
出力結果は底辺シリツ医スレに掲載
egg.5ch.net/test/read.cgi/hosp/1705363640/754
Wolfram言語の使える東大合格者の方の検証and/or最適化を希望します。
