如何在計劃中製作兩個列表，一個是偶數，另一個是奇數？

Question

我有一個問題。

例如：

我們有一個無序列表：

(1 4 5 3 6 7) 

你能不能幫我2列出？

一個奇數，增加列表：

(1 3 5 7) 

和偶數其他，降低列表：

(6 4) 

不要排序使用！

Answer 1

(define (split filter lst) 
    (let loop ((a '()) (b '()) (lst lst)) 
    (if (null? lst) 
     (values a b) 
     (let ((cur (car lst))) 
      (if (filter cur) 
       (loop (cons cur a) b (cdr lst)) 
       (loop a (cons cur b) (cdr lst))))))) 

(split odd? '(1 2 3 4 5 6 7 8 9 10)) 
; ==> (9 7 5 3 1), (10 8 6 4 2) 

現在，使一個從賠付和特定的順序分離賠率很簡單。