小编use*_*532的帖子

问题:

编写一个函数(split l),它接受一个列表并将其分成两个大小相同(在一个内)的列表,并返回一个对,其car是第一个列表,其cdr是第二个列表.

我的代码:

(define split list)
  (let ((half (/ (length list) 2)
    (cons (car half list)
          (cdr half list))))