Сортировка 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)

Оцени полезность:

11 голосов , оценка 3.909 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы