是否可以在计划中休息？

Question

有没有一种方法可以使我在不使用rest的情况下进行此工作（我尝试将cdr lst放在rest所在的位置，但这会给我一个错误）以及如何删除if条件-（if（> N 0）-因为所有我要显示的是输出列表-（列表NE）吗？

(define (count lst)
 (if (null? lst) '() 
   (let ((display (lambda (N E) 
                (if (> N 0) (list N E) (list N E))))) 
     (let loop ((rest (cdr lst)) 
                (E (car lst)) 
                (N 1)) 
       (cond ((null? rest) 
              (list (display N E))) 
             ((eq? E (car rest)) 
              (loop (cdr rest) E (+ N 1))) 
             (else 
               (cons (display N E) (loop (cdr rest) (car rest) 1))))))))

Answer 1

请注意， 所有过程都仅绑定到全局范围内的变量。 例：

(let ((rest 5))
  (rest '(1 2 3)))

在R6RS及更高版本中，您应该得到一个例外，说明数字5不是过程。 原因是您已覆盖了该范围内的绑定rest ，并且应将变量rest用作对5的绑定，而不要尝试将其作为过程调用。 在R5RS及更早版本中，结果是不确定的，因为它不是有效的Scheme代码，但是大多数实现可能会遇到与R6RS所要求的类似的错误。

您已经对display进行了相同的操作，但是这次display是一个除了全局display之外还执行其他操作的过程。 在R6RS中可以，但在R5RS及更早版本中则不能。 对于所有受支持的类型，实现都可以免费将其替换为全局实现。 display支持所有类型，因此您的代码可能不适用于所有实现，因为它是无效的R5RS。