RosettaCodeData/Task/Loops-N-plus-one-half/Mathematica/loops-n-plus-one-half.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
98 B
Text

i = 1; s = "";
While[True,
s = s <> ToString@i;
If[i == 10, Break[]];
s = s <> ",";
i++;
]
s