- 901 名前:132人目の素数さん mailto:sage [2024/05/06(月) 06:43:25.09 ID:xxhQy/YG.net]
- >>868
検索していたらRealDigitsという関数あったので、これを使って 2行に短縮 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]]]
|

|