5. Napiste co pocita nasl. procedura:

(define proc
(lambda (x)
  (foldr (lambda (x y)
           (if (list? x)
             `(,@(proc x) ,@y)
             `(,x ,@y)))
         '()
         x)))

co počítá následující procedura

(define proc
  (lambda (x . y)
    (if (null? y)
      0
      (+ (if (x (car y)) 1 0)
         (apply proc x (cdr y))))))

 
 ; vim: syntax=racket