Перестановки элементов списка и упрощение записи выражения

04.12.2011, 20:36. **Показов** 2071. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Здравствуйте, очень нужна помощь в решении следующих задач:
1. Для заданного списка получить множество всех возможных перестановок его элементов

2. Алгебраическое выражение содержит четыре арифметические операции над переменными, разработать программу, упрощающую выражение записанное в инфиксной форме записи. Например, 0+a*(b+1*c)=a(b+c).

Заранее спасибо!

@Pa1nk1ller · 05.12.2011, 18:00

вот есть мысль по 2ой задаче... но она не закончена

Lisp

(defun simple (l)
  (cond
    ((atom L) L)
    ((and (eq (first L) 0) (eq (second L) '+)) (third L))
    ((and (eq (first L) 0) (eq (second L) '+)) (third L))
    ((and (eq (third L) 0) (eq (second L) '+)) (first L))
    ((and (eq (second L) '-) (eq (third L) 0)) (first L))
    ((and (eq (first L) 1) (eq (second L) '*)) (third L))
    ((and (eq (second L) '*) (eq (third L) 1)) (first L))
    ((and (eq (second L) '*) (eq (third L) 0)) 0)
    ((and (eq (first L) 0) (eq (second L) '*)) 0)
    ((and (eq (second L) '/) (eq (third L) 1)) (first L))
    ((and (eq (first L) 1) (eq (second L) '/)) (list 1 '/ (third L)))
    ((and (eq (first L) 0) (eq (second L) '-)) (list '- (third L)))
    (t L)))
    
(defun simpleall (L)
  (cond 
    ((equal L (simple L)) L)
    (t (simpleall (simple L)))))

@Nameless One · 09.12.2011, 18:41

1.

Lisp

(defun perms (lst)
  (if lst
      (apply 'concatenate 'list
         (mapcar (lambda (x)
               (mapcar (lambda (ys)
                 (cons x ys))
                   (perms (remove x lst))))
             lst))
      '(nil)))

Lisp

CL-USER> (perms '(1 2 3 4 5))
((1 2 3 4 5) (1 2 3 5 4) (1 2 4 3 5) (1 2 4 5 3) (1 2 5 3 4) (1 2 5 4 3)
 (1 3 2 4 5) (1 3 2 5 4) (1 3 4 2 5) (1 3 4 5 2) (1 3 5 2 4) (1 3 5 4 2)
 (1 4 2 3 5) (1 4 2 5 3) (1 4 3 2 5) (1 4 3 5 2) (1 4 5 2 3) (1 4 5 3 2)
 (1 5 2 3 4) (1 5 2 4 3) (1 5 3 2 4) (1 5 3 4 2) (1 5 4 2 3) (1 5 4 3 2)
 (2 1 3 4 5) (2 1 3 5 4) (2 1 4 3 5) (2 1 4 5 3) (2 1 5 3 4) (2 1 5 4 3)
 (2 3 1 4 5) (2 3 1 5 4) (2 3 4 1 5) (2 3 4 5 1) (2 3 5 1 4) (2 3 5 4 1)
 (2 4 1 3 5) (2 4 1 5 3) (2 4 3 1 5) (2 4 3 5 1) (2 4 5 1 3) (2 4 5 3 1)
 (2 5 1 3 4) (2 5 1 4 3) (2 5 3 1 4) (2 5 3 4 1) (2 5 4 1 3) (2 5 4 3 1)
 (3 1 2 4 5) (3 1 2 5 4) (3 1 4 2 5) (3 1 4 5 2) (3 1 5 2 4) (3 1 5 4 2)
 (3 2 1 4 5) (3 2 1 5 4) (3 2 4 1 5) (3 2 4 5 1) (3 2 5 1 4) (3 2 5 4 1)
 (3 4 1 2 5) (3 4 1 5 2) (3 4 2 1 5) (3 4 2 5 1) (3 4 5 1 2) (3 4 5 2 1)
 (3 5 1 2 4) (3 5 1 4 2) (3 5 2 1 4) (3 5 2 4 1) (3 5 4 1 2) (3 5 4 2 1)
 (4 1 2 3 5) (4 1 2 5 3) (4 1 3 2 5) (4 1 3 5 2) (4 1 5 2 3) (4 1 5 3 2)
 (4 2 1 3 5) (4 2 1 5 3) (4 2 3 1 5) (4 2 3 5 1) (4 2 5 1 3) (4 2 5 3 1)
 (4 3 1 2 5) (4 3 1 5 2) (4 3 2 1 5) (4 3 2 5 1) (4 3 5 1 2) (4 3 5 2 1)
 (4 5 1 2 3) (4 5 1 3 2) (4 5 2 1 3) (4 5 2 3 1) (4 5 3 1 2) (4 5 3 2 1)
 (5 1 2 3 4) (5 1 2 4 3) (5 1 3 2 4) (5 1 3 4 2) (5 1 4 2 3) (5 1 4 3 2)
 (5 2 1 3 4) (5 2 1 4 3) (5 2 3 1 4) (5 2 3 4 1) (5 2 4 1 3) (5 2 4 3 1)
 (5 3 1 2 4) (5 3 1 4 2) (5 3 2 1 4) (5 3 2 4 1) (5 3 4 1 2) (5 3 4 2 1)
 (5 4 1 2 3) (5 4 1 3 2) (5 4 2 1 3) (5 4 2 3 1) (5 4 3 1 2) (5 4 3 2 1))
CL-USER>

Almaz90
		1
	Перестановки элементов списка и упрощение записи выражения 04.12.2011, 20:36. Показов 2071. Ответов 2 Метки нет (Все метки) Здравствуйте, очень нужна помощь в решении следующих задач: 1. Для заданного списка получить множество всех возможных перестановок его элементов 2. Алгебраическое выражение содержит четыре арифметические операции над переменными, разработать программу, упрощающую выражение записанное в инфиксной форме записи. Например, 0+a(b+1c)=a(b+c). Заранее спасибо!

	09.12.2011, 18:41

Опции темы