Сортировка 8 троек с разными приоритетами для столбцов - Lisp
Формулировка задачи:
Даны 8 троек - 0 0 0, 0 0 1, 0 1 0, 0 1 1, 1 0 0, 1 0 1, 1 1 0, 1 1 1.
Рассортировать их с разными приоритетами для столбцов.
(defun psort (w prs &optional (m (reduce #'max prs))) (if (zerop m) w (psort (stable-sort w #'< :key #'(lambda (p) (nth (position m prs) p))) prs (1- m)))) > (psort '((0 0 0) (0 0 1) (0 1 0) (0 1 1) (1 0 0) (1 0 1) (1 1 0) (1 1 1)) '(3 2 1)) ((0 0 0) (1 0 0) (0 1 0) (1 1 0) (0 0 1) (1 0 1) (0 1 1) (1 1 1))
Решение задачи: «Сортировка 8 троек с разными приоритетами для столбцов»
textual
Листинг программы
f p = map snd . sort . map ((,) =<< sum . zipWith ((*).(-) 3) p)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д