24/05/06 06:43:25.09 xxhQy/YG.net
>>868
検索していたらRealDigitsという関数あったので、これを使って
２行に短縮
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]];
StringJoin["0.",f /@ RealDigits[1/(14^^2024),14,2024][[1]]]
24/05/06 06:43:25.09 xxhQy/YG.net
>>868
検索していたらRealDigitsという関数あったので、これを使って
２行に短縮
f[x_] := If[x==0,"0",{"1","2","3","4","5","6","7","8","9","A","J","Q","K"}[[x]]];
StringJoin["0.",f /@ RealDigits[1/(14^^2024),14,2024][[1]]]