Массивы - Lisp
Формулировка задачи:
Здравствуйте, помогите пожалуйста с задачей.
Написать функцию, которая переставляет местами столбцы матрицы, заданной в виде двумерного массива.
Решение задачи: «Массивы»
textual
Листинг программы
(defun task (arr) (let* ((aa (array-dimensions arr)) (n (car aa)) (m (cadr aa)) (tmp nil)) (dotimes (j (/ m 2) arr) (dotimes (i n t) (setf tmp (aref arr i j)) (setf (aref arr i j) (aref arr i (- m j 1))) (setf (aref arr i (- m j 1)) tmp))))) CL-USER 25 > (task #2A((1 2 3 4) (5 6 7 8))) #2A((4 3 2 1) (8 7 6 5))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д