从方案中的List获取中间元素

Question

我是计划的新手，有人可以给我一些关于如何获得的想法，“列表中的中间元素？”

Answer 1

这是我的解决方案。它基于tortoise-and-hare algorithm（用于任何类型的列表遍历，您需要检测循环列表），因此它不会做任何工作而不是理想的遍历列表遍历。 ： - ）

(define (middle-elements lst)
  (if (null? lst) '()
      (let loop ((tortoise lst)
                 (hare (cdr lst)))
        (cond ((eq? tortoise hare) #f)
              ((null? hare) (list (car tortoise)))
              ((null? (cdr hare)) (list (car tortoise) (cadr tortoise)))
              (else (loop (cdr tortoise) (cddr hare)))))))

它涵盖以下情况：

• 如果给出一个空列表，则返回一个空列表。
• 如果给定一个包含奇数个元素的列表，则返回带有中间元素的单例列表。
• 如果给定一个包含偶数个元素的列表，则返回一个包含两个中间元素的列表。
• 如果给出循环列表，则返回#f。
• 如果给出不合适的清单（包括非清单），请召唤鼻子恶魔。