Упражнение 2.23 Процедура for-each
tsuriay

Код Ревью

Сравни свои решения
    #| BEGIN (Введите свое решение) |#
(define (my-for-each proc items)
  (if (null? items)
	#t
	(
     (proc (car items))
     (my-for-each proc (cdr items)))))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (my-for-each proc items)
  (cond ((null? items) #t)
		(else (proc (car items)) (my-for-each proc (cdr items)))))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (my-for-each proc items)
  (if (null? items)
	#t
	(
     (proc (car items))
     (my-for-each proc (cdr items)))))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (my-for-each proc items)
  (cond ((null? items) #t)
		(else (proc (car items)) (my-for-each proc (cdr items)))))

#| END |#