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))

计划中的特殊排列

2 个答案: