6 lines
131 B
Scheme
6 lines
131 B
Scheme
(define (traverse seq func)
|
|
(if (null? seq)
|
|
'()
|
|
(begin
|
|
(func (car seq))
|
|
(traverse (cdr seq) func))))
|