計劃中的特殊排列

Question

我怎樣才能以這種方式在計劃中產生排列：排列的第一個元素只在1-2，第二個1-4和第三個1-3之間......並且數字可以顯示更多比排列

Answer 1

一旦這裏是你如何生成所有排列的數字在給定範圍內的序列：

(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

排列組合使用for/list，在球拍文檔覆蓋here。

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