구성표의 특수 치환

Question

이 방법으로 구성표에서 순열을 생성 할 수있는 방법 : 순열의 첫 번째 요소는 1-2 사이, 두 번째 1-4는 1-3 번째 ... 그리고 숫자도 더 많이 나타날 수 있습니다. 한 번 순열

Answer 1

보다 다음은 주어진 범위에서 숫자의 순서에 대한 모든 순열을 생성하는 것입니다 방법은 다음과 같습니다 for/list를 사용

(define (cartesian-product . lsts) 
    (foldr (lambda (lst acc) 
      (for*/list ((x (in-list lst)) 
         (y (in-list acc))) 
      (cons x y))) 
     '(()) 
     lsts)) 

(cartesian-product (range 1 3) (range 1 5) (range 1 4)) 

=> '((1 1 1) (1 1 2) (1 1 3) (1 2 1) (1 2 2) (1 2 3) (1 3 1) (1 3 2) 
    (1 3 3) (1 4 1) (1 4 2) (1 4 3) (2 1 1) (2 1 2) (2 1 3) (2 2 1) 
    (2 2 2) (2 2 3) (2 3 1) (2 3 2) (2 3 3) (2 4 1) (2 4 2) (2 4 3)) 

Answer 2

순열은 라켓의 문서에 here 덮여.

(for/list ([i '(1 2)] 
      #:when i 
      [j '(1 2 3 4)] 
      #:when j 
      [k '(1 2 3)]) 
    (list i j k))