> 1 <

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

Дуська

Members


Статус

21 сообщений

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

#6976   2013-03-30 01:18 GMT+3 часа(ов)      
Умножение матриц (несомненно, результаты двух предыдущих заданий окажутся полезными).

Файфель Б.Л.

Members


Статус

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

#6985   2013-03-30 22:00 GMT+3 часа(ов)      
 
(defun matr-prod (m1 m2)
(let ((mm (transp m2)))
(mapcar #'(lambda (x) (mapcar #'(lambda (y) (scal-prod x y)) mm)) m1)))
==> matr-prod
(matr-prod '((1 2) (3 4)) '((1 2) (3 4)))
==> ((7 10) (15 22))
 
> 1 <


Онлайн :

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