13 lines
265 B
Text
13 lines
265 B
Text
/* There is no "continue" in Maxima, the easiest is using a "if" instead */
|
|
block(
|
|
[s: ""],
|
|
for n thru 10 do (
|
|
s: sconcat(s, n),
|
|
if mod(n, 5) = 0 then (
|
|
ldisp(s),
|
|
s: ""
|
|
) else (
|
|
s: sconcat(s, ", ")
|
|
)
|
|
)
|
|
)$
|