Есть функция, которая выводит список всех перестановок списка.
Нужно её переделать, чтобы исходные данные были массивом, а не списком.
Поможете? А то с массивами беда


(defun addel (el l)
    (cond
        (
            (car l)
            (append
                (list (cons el (car l)))
                (addel el (cdr l))
            )
        )
        (T NIL)
    )
)

(defun first_to_end (l lst)
    (cond
        (
            (not (equal (car l) (car lst)))
            (append (cdr l) (list (car l)))
        )
        (T NIL)
    )
)

(defun perest (l lst)
    (cond
        (
            (equal l NIL)
            NIL
        )
        (
            (cdr l)
            (append
                (addel
                    (car l)
                    (perest (cdr l) (last (cdr l)))
                )
                (perest
                    (first_to_end l lst)
                    lst
                )
            )
        )
        (T (list l))
    )
)

(defun per (l) (perest l (last l)))

вариант для списков:


Это сообщение отредактировал(а) _sg - 24.4.2014, 20:09