Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [LISP] Лабораторная: сортировка

Автор: tinimi 5.2.2007, 13:11

в общем у меня есть маленькая загвоздка. вот задача:

Отсортировать строки двумерного массива по уменьшению заданого элемента.
Тоесть задаеться по какому столбцу сортировать.

Есть решение со списками, по первому столбцу:

Код


(defun run ()
    (setq lst '((8 3 5) (9 1 9 6 -7)(3 2 4)(7 1)))
    (sort lst #'> :key #'car)
)

Но надо использовать именно массивы а не списки.

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

Код


(setq arr
(make-array '(4 4) :initial-contents
    '((3 4 5 3)
      (1 2 3 7)
      (5 3 5 4)
      (2 7 8 3))
     )
)

Желательно использование clisp, или чего нить тоже free.