Напишите программу, которая строит СДНФ и СКНФ для заданной булевой формулы. Формула может быть задана прямо в исходном

(define data
  '((-x1 -x2 -x3 #t)
    (-x1 -x2 x3 #t)
    (-x1 x2 -x3 #f)
    (-x1 x2 x3 #t)
    (x1 -x2 -x3 #f)
    (x1 -x2 x3 #f)
    (x1 x2 -x3 #f)
    (x1 x2 x3 #t)))
 
(define (find-diff x y)
  (if (eqv? (length x) (length y))
      (let loop ((x x) (y y) (n 0) (acc '()))
        (cond ((> n 1) #f)
              ((null? x) (reverse acc))
              (else (let ((flag (eq? (first x) (first y))))
                      (loop (rest x)
                            (rest y)
                            (if flag n (add1 n))
                            (if flag (cons (first x) acc) acc))))))
      #f))
 
(define (disjunctive-normal-form table)
  (let ((terms (map (lambda (t) (remove #t t))
                    (filter (lambda (term) (first (reverse term))) table))))
    terms))
 
(disjunctive-normal-form data)