Как вывести целое число с n ведущими нулями в Mathematica?

Question

Как вывести целое число с n ведущими нулями в Mathematica?

Я попытался сделать следующее:

Do[

  f1 = StringReplace[

    "obsxxxx.out", {"xxxx" -> ToString[i]}];

  Print[f1];

  ,

  {i, 200}];

И получить

obs0001.out

obs0002.out

...

obs0010.out

...

obs0100.out

...

И так далее.

Я попробовал:

ToString[Flatten[IntegerDigits[20, 10, 4]]]

Но у меня все еще есть список ...

318 1

wolfram-mathematica

1 ответ:

Comments

Ничего не найдено.

tomd · Accepted Answer · 2011-09-14 19:10:36

Возможно, вам потребуется что-то вроде:
Table[IntegerString[i, 10, 4], {i, 1, 10}]
Дача
{"0001", "0002", "0003", "0004", "0005", "0006", "0007", "0008", 
"0009", "0010"}
Или
Table["obs" <> IntegerString[i, 10, 4] <> ".out", {i, 1, 10}]
Дача

{"obs0001.out", " obs0002.out", " obs0003.out", " obs0004.из", - obs0005.out", " obs0006.out", " obs0007.out", " obs0008.из", - obs0009.out", " obs0010.вон"}