Loops/Foreach: Difference between revisions

Content added Content deleted
(→‎{{header|Common Lisp}}: Added DO iterator)
Line 804: Line 804:
(for x in the-list)
(for x in the-list)
(print x))</lang>
(print x))</lang>

=== Using DO ===
<lang lisp>
(let ((the-list '(1 7 "foo" 1 4))) ; Set the-list as the list
(do ((i the-list (rest i))) ; Initialize to the-list and set to rest on every loop
((null i)) ; Break condition
(print (first i)))) ; On every loop print list's first element
</lang>

{{out}}
<pre>
1
7
"foo"
1
4
</pre>


=={{header|D}}==
=={{header|D}}==