Anonymous user
Loops/Continue: Difference between revisions
→{{header|Common Lisp}}: improve formatting
m (→{{header|Swift}}: Update to modern Swift syntax) |
(→{{header|Common Lisp}}: improve formatting) |
||
Line 465:
The second uses the implicit <code>tagbody</code> and <code>go</code>.
The third is a do loop with conditionals outside of the output functions.
<lang lisp>(do ((i 1 (1+ i)
((> i 10))
(format t "~a~:[, ~;~%~]" i (zerop (mod i 5))))
(do ((i 1 (1+ i)
((> i 10))
(write i)
(when (zerop (mod i 5))
Line 476 ⟶ 478:
end)
(do ((i 1 (1+ i)
((> i 10))
(write i)
(if (zerop (mod i 5))
Line 488 ⟶ 491:
<lang lisp>(loop for i from 1 to 10
do (write i)
if (zerop (mod i 5)
else
do (write-string ", "))
(loop for i from 1 to 10 do
| |||