Сортировка матрицы по столбцам (из раздела "C++ для начинающих")

#lang racket
 
(define (matrix) (list
                (list -1 2 3 4 -5)
                (list -2 -4 7 8 9)
                (list -5 4 3 2 1)))
 
(define (transpose m)
  (if (or (null? m) (null? (car m))) '()
      (cons (map (lambda (x) (append (car x))) m)
            (transpose (map cdr m)))))
 
(define (fold op init lst)
  (cond ((null? lst) init)
        ((< (car lst) 0) (fold op (op init (car lst)) (cdr lst)))
        (else (fold op init (cdr lst)))))
 
(transpose (sort 
            (transpose (matrix))
            (lambda (x y) (< (fold + 0 x)
                        (fold + 0 y)))))

(defun task (matr)
 (let* ((m (apply 'mapcar (cons 'list matr))) ;; транспонирование
        (c (mapcar #'(lambda (r) ;; вычисление характеристики и вставка 0-м элементом
            (cons (abs (apply '+ (remove-if-not #'(lambda (x) (and (oddp x) (minusp x))) r))) r)) 
                  m))
        (s (qsort-a c 'car)) ;; сортировка
        (mm (mapcar 'cdr s))) ;; удаление ключей
       (apply 'mapcar (cons 'list mm)))) ;; финишное транспонирование
       
(task '((-1 2 -7) (1 2 -5) (4 5 -6)))
 
==> ((2 -1 -7) (2 1 -5) (5 4 -6))