Anonymous user
Line 409:
=={{header|Scheme}}==
<lang scheme>(define (traverse seq func)
(if (null? seq)
'()
(begin
(traverse (cdr seq))))</lang>▼
(func (car seq))
▲ (traverse (cdr seq)))))</lang>
=={{header|Tcl}}==
| |||