> 1 <

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

Дуська

Members


Статус

21 сообщений

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

#6975   2013-03-30 01:17 GMT+3 часа(ов)      
Транспонирование матрицы. (При рекурсивном вызове будет полезен функционал MAPCAR).

Файфель Б.Л.

Members


Статус

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

#6984   2013-03-30 21:50 GMT+3 часа(ов)       
 

(defun transp (matr)

  (apply 'mapcar (cons 'list matr)))

==> transp

(transp '((1 2) (3 4)))

==> ((1 3) (2 4))

 
> 1 <


Онлайн :

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