Wie mache ich diese Länge ≤ 1 mehr als einmal?

Ich habe einen Tag damit verbracht, die Seite 166 zu lesenlength≤1 im BuchDer kleine Schemer; Es gibt den folgenden Code:

(((lambda (mk-length)
    (mk-length mk-length))
  (lambda (mk-length)
   (lambda (l)
    (cond
      ((null? l) 0)
      (else (add1 
           ((mk-length eternity)
            (cdr l))))))))
 l)

woherl ist(apples) undeternity ist wie folgt:

(define eternity 
  (lambda (x)
    (eternity x)))

Seite 166 (4. Aufl.) Besagt, dass:

Wenn wir uns bewerbenmk-length einmal bekommen wirlength≤1

Und dann

Können wir das mehr als einmal machen?

Aber ich weiß nicht, wie ich das machen solllength≤2?

Antworten auf die Frage(1)

Ihre Antwort auf die Frage