> 1 <

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

tonir37

Members


Статус

2 сообщений

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

#7495   2015-01-20 01:29 GMT+3 часа(ов)      
Помогите пожалуйста

_sg

Members


Статус

42 сообщений

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

#7496   2015-01-23 02:14 GMT+3 часа(ов)       
(defun add-lists (w v)

  (cond ((null w) nil)

        (t (cons (+ (car w) (car v))

                 (add-lists (cdr w) (cdr v))))))

 

(defun add-matrices (w v)

  (cond ((null w) nil)

        (t (cons (add-lists (car w) (car v))

                 (add-matrices (cdr w) (cdr v))))))

 

> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))

((2 4 6) (8 10 12) (14 16 18))

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

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

#7497   2015-01-23 02:14 GMT+3 часа(ов)       
(defun add-lists (w v)

  (when w (cons (+ (car w) (car v))

                (add-lists (cdr w) (cdr v)))))

 

(defun add-matrices (w v)

  (when w (cons (add-lists (car w) (car v))

                (add-matrices (cdr w) (cdr v)))))

 

> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))

((2 4 6) (8 10 12) (14 16 18))

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

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

#7498   2015-01-23 02:15 GMT+3 часа(ов)       
(defun add-matrices (w v)

  (loop for a in w for b in v

        collect (loop for c in a for d in b

                      collect (+ c d))))

 

> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))

((2 4 6) (8 10 12) (14 16 18))

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

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

#7499   2015-01-23 02:15 GMT+3 часа(ов)       
(defun add-matrices (w v)

  (loop for a in w for b in v collect (mapcar #'+ a b)))

 

> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))

((2 4 6) (8 10 12) (14 16 18))

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

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

#7500   2015-01-23 02:15 GMT+3 часа(ов)       
(defun add-matrices (w v)

  (mapcar #'(lambda (a b) (mapcar #'+ a b)) w v))

 

> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))

((2 4 6) (8 10 12) (14 16 18))

 
Решение задач на языке программирования Лисп

katerin

Members


Статус

1 сообщений

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

#7502   2015-01-25 18:59 GMT+3 часа(ов)      
Вот так у меня было



;Сложить две целочисленные матрицы размером не более 4
(defun Add_M(M1 M2)
(setq n (length M1))(setq Rez())
(do ((i 0 (1+ i)))((> i (1- n)) Rez)(setq L1 ())
(do ((j 0 (1+ j)))((> j (1- n)) L1)
(setq L1(append L1(cons (+ (nth j( nth i M1))(nth j(nth i M2)))())))
)(setq Rez (append Rez (cons L1()))))
(princ "Rez=")(princ Rez)(terpri)
)
;(load"D:\\LABA\\Add_M.lisp")
;(Add_M '((1 2)(2 3)) '((2 1)(1 2)))
;(Add_m '((1 2 3)(2 3 1)(3 2 1)) '((2 1 4)(1 2 3)(1 1 1)))
> 1 <


Онлайн :

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