RosettaCodeData/Task/Loops-N-plus-one-half/Mathematica/loops-n-plus-one-half.math

9 lines
98 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
i = 1; s = "";
While[True,
s = s <> ToString@i;
If[i == 10, Break[]];
s = s <> ",";
i++;
]
s