라켓 - 짝수 및 홀수 숫자 분리?

Question

저는 Racket/Scheme에서 정수 목록을 제공하는 함수를 작성하려고합니다. 그런 다음 두 개의 하위 목록 (짝수와 홀수에 대해 하나씩)으로 정렬해야합니다. 나는 라켓을하기가 너무 쉽다.리스트를 다루는 것에 대한 기초를 가지고 있지만 두 개의 서브리스트를 정의하고 각각에 숫자를 매기는 방법을 알아낼 수는 없다.

(define (segregate lst) 
     (if (empty? lst) 
      '() 
      (if (even? (car a lst)) 
       (append (car alst) (segregate (cdr alst)))) 

을 그리고 거기에서 내가 붙어있어 :

이것은 내가 지금까지있는 것입니다. 조건이 충족되면 짝수가 하나의 목록으로 정렬됩니다. 하지만 이상한 숫자가 필요합니다. 이 조건의 else 문은 그러한 홀수를 제공하지만 별도의 목록으로 가져 오는 방법을 알지 못합니다.

교수님이 어떤 이유로 든 사무실에 없기 때문에 제가이 사이트에서 실제로 질문을 한 것은 이번이 처음입니다.

Answer 1

따라서 함수가 두 개의 목록을 반환해야합니다. 맞습니까? 기본 케이스는 두 개의 빈 목록을 반환해야하며 재귀 적 경우에 따라 관련 항목을 채 웁니다. 여기에 몇 가지 골격 코드합니다 (<???>에 기입)이있다 :

(define (odds-and-evens lst) 
    (if (null? lst) 
     (values '() '()) 
     (let-values (((odds evens) (odds-and-evens (cdr lst)))) 
     (cond ((odd? (car lst)) (values (cons <???> <???>) <???>)) 
       ((even? (car lst)) (values <???> (cons <???> <???>))) 
       (else (values odds evens)))))) 

Answer 2

크리스 'let-values -version 매운이지만, 나는 그것이 꼬리 재귀 만들기 위해 이런 식으로 작성된 것입니다 : 심지어

(define (split left? lst) 
    (let loop ((lst lst) (a '()) (b '())) 
    (if (null? lst) 
     ;; you don't need to use values. `cons` or `list` are sometimes preferred 
     (values (reverse a) (reverse b)) 
     (let ((e (car lst))) 
      (if (left? e) 
       (loop (cdr <???>) (cons <???> <???>) <???>) 
       (loop (cdr <???>) <???> (cons <???> <???>))))))) 

(split odd? '(1 2 3 4 ...)) 
; ==> 
; (1 3 ...) 
; (2 4 ...) 

두리스트를 두 번 통과 시키지만 (하나는 분리를하고 다른 하나는 그 반대의 작업을 수행합니다), 여전히 여러 번 빠르고 IMO는 더 간단합니다.

주문에 신경 쓰지 않는다면 reverse 단계를 건너 뛰면 훨씬 빨라집니다.

Answer 3

위의 코드는 지옥으로 혼돈되어 있습니다. 라켓은 매우 간단한 언어이며, 코드를 읽는 동안 코드가하는 일을 이해하기위한 것입니다. 이 문제에 꼬리 재귀를 사용할 수 있습니다.

A의 첫 번째 요소를 분석하여 필요한 위치에 놓은 다음 A가 비어있을 때까지 함수를 다시 호출합니다.

(define segregate 
    (lambda (A o e) ;A is the list of integers, o is the list of odds and e is for evens. 
     (cond ((empty? A) (list o e)) 
      ((even? (car A)) (segregate (cdr A) o (append e (car A))) 
      (else (segregate (cdr A) (append o (car A)) e))))) 

Answer 4

이 내장되어 사용 partition :

(define (segregate lst) 
    (let-values ([(e o) (partition even? lst)]) 
    (list e o))) 

Answer 5

또 다른 대안은 순간에 실행되지 않습니다

(define (odd-even xs) 
    (foldr (lambda (x b) 
      (if (odd? x) 
       (list (cons x (first b)) (second b)) 
       (list (first b) (cons x (second b))))) '(()()) xs)) 

racket@> (odd-even '(1 2 3 4 5 6 7)) 
'((1 3 5 7) (2 4 6))