구성표에 짝수와 홀수가있는 두 개의 목록을 만드는 방법은 무엇입니까?

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) 

이제 확률과 특정 순서로 확률을 구하는 방법은 간단 할 것입니다.