Отношение эквивалентности схемы

Question

Мне нужна помощь, определяющая функцию схемы, которая принимает раздел (список списков) и возвращает список пар, представляющий отношение эквивалентности. Я начал писать код, но понимаю, что иду в неправильном направлении. Я смотрел на это часами без каких-либо успехов.

(define partition 
    (lambda (piv l p1 p2) 
    (if (null? l) 
     (list p1 p2) 
     (if (< (car l) piv) 
      (partition piv (cdr l) (cons (car l) p1) p2) 
      (partition piv (cdr l) p1 (cons (car l) p2)))))) 

Однако функция должна работать таким образом, таким образом, что (partition ’((3 4) (5))) возвращение ((3 3) (3 4) (4 3) (4 4) (5 5))

Любая помощь будет принята с благодарностью

Answer 1

Другим примером может быть полезным. Исходя из предположения, что все элементы списка членов эквивалентны друг другу, этого может быть достаточно:

(define (partition lol) ; lol, list of lists 
    (apply append 
     (map 
      (lambda (liszt) 
       (apply append (map 
        (lambda (elem) 
         (map 
          (lambda (other) 
           (list elem other)) 
          liszt)) 
        liszt))) 
      lol)))