Создать списки с любыми двумя элементами из более длинного списка DrRacket

Question

Как я могу генерировать последовательные списки, комбинируя любые два элемента из более длинного списка, например, с 4 элементами?

Например, я хочу, чтобы получить '(1 2), '(1 3), '(1 4), '(2 3), '(2 4) и '(3 4) на основе '(1 2 3 4).

Answer 1

Я думаю, что вы хотите все перестановки в соответствии с this answer.

Используя его определение функции перестановки, вы могли бы сделать что-то вроде:

(permutations 2 '(1 2 3 4)) 

Answer 2

Вопроса требующее для 2 размера списка комбинаций из данного списка. Он может быть реализован с точки зрения более общей процедуры, которая производит п-размерные комбинации:

(define (combinations size elements) 
    (cond [(zero? size) 
     '(())] 
     [(empty? elements) 
     empty] 
     [else 
     (append (map (curry cons (first elements)) 
         (combinations (sub1 size) (rest elements))) 
       (combinations size (rest elements)))])) 

Он работает, как ожидалось, когда мы указываем, что size=2:

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

Answer 3

Вот решение так же, как вы указали (одна функция, один аргумент). Для ввода типа '(next rest ...) решение вычисляет результат для next, а затем рекурсирует на rest ... - используя append для объединения двух частей.

(define (combine elts) 
    (if (null? elts) 
     '() 
     (let ((next (car elts)) 
      (rest (cdr elts))) 
     (append (map (lambda (other) (list next other)) rest) 
       (combine rest))))) 
> (combine '(1 2 3 4)) 
((1 2) (1 3) (1 4) (2 3) (2 4) (3 4))