구성표에 숫자의 파티션을 나열하십시오.

Question

목록의 숫자 파티션을 나타내야합니다. 또한이 절차는 최대 파티션 수와 초기 파티션의 최대 값을 결정하는 인수를 사용합니다.

(list-partitions 5 2 4) 
>((4 1) (3 2)) 

여기서 초기 총, 내가 구성하는 도우미 함수로 분할 수를 공급한다고 생각 파티션의 최대 수는 2이고, 최대 초기 파티션 개념적 4.

이다 5 나를위한 파티션. 하지만 어떻게 구현할 수 있을까요?

는

Answer 1

여기 라켓 가능한 해결책 해결. 먼저 partition 절차 (this 알고리즘 기반)는 정수 n에 대한 전체 파티션 목록을 생성합니다. 그런 다음 list-partitions 절차는 요청에 따라 결과를 필터링 :

#lang racket 

(define (partition n) 
    (let loop ((n n) 
      (acc '())) 
    (if (zero? n) 
     (list acc) 
     (append-map (lambda (i) 
         (loop (- n i) (cons i acc))) 
        (reverse (build-list n add1)))))) 

(define (list-partitions n max-number max-init) 
    (take (filter (lambda (lst) 
        (<= (apply max lst) max-init)) 
       (partition n)) 
     max-number)) 

(list-partitions 5 2 4) 
> '((1 4) (2 3))