> 1 <

Автор Сообщение

Света

Members


Статус

4 сообщений

Где: ---
Род занятий:
Возраст:

#7016   2013-05-09 23:49 GMT+3 часа(ов)      
Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно. Имя и размеры матрицы: F(N,M). Условия и ограничения: N<=20, M<=10.

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 66

#7019   2013-05-11 01:18 GMT+3 часа(ов)      
 
(defun task (matr)
(mapcar #'(lambda (row)
(let* ((rmax (apply 'max row))
(rmin (apply 'min row))
(rr (removef rmax (removef rmin row))))
(cons rmax (append rr (list rmin))))) matr))
;; проверка
(task '((1 2 3) (4 5 6) (7 8 9)))
==> ((3 2 1) (6 5 4) (9 8 7))
 
 
> 1 <


Онлайн :

0 пользователь(ей), 28 гость(ей) :