24/05/06 05:48:05.53 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]
出力結果は底辺シリツ医スレに掲載
ｽﾚﾘﾝｸ(hosp板:754番)
Wolfram言語の使える東大合格者の方の検証and/or最適化を希望します。