Clojure Создание третьего списка путём сложения элементов двух списков

@Otar4ik · Регистрация: 20.10.2013

Author24 — интернет-сервис помощи студентам

Добрый день!)Дана такая задача

Даны 2 списка, создать третий путем сложения поочередно элементов
1й элемент нового списка это сумма 1х элементов данных списков
2й элемент-сумма вторых и тд

Иными словами,например 2 списка

(2 3 4) и (3 4 5)

и нужно чтобы получилось так ((+2 3)(+3 4)(+4 5))

Вот мои наработки,здесь ругается - (cons (task (cdr s1) (cdr s2))))))) в конце 2-ой строки,там надо как-то поставить скобку,не знаю как.

Lisp

1
2
3

(defun task (s1 s2) 
  (cond ((null (cdr s2)) (cons (+ (car s1) (car s2)) nil)) (t (cons (+ (car s1) (car s2)) (cons  (task (cdr s1) (cdr s2)))))))
(task '(2 3 4) '(3 4 5))

@_sg · 22.05.2014, 17:35

Lisp

1 2	> (mapcar #'+ '(1 2 3) '(1 2 3)) (2 4 6)

Добавлено через 2 минуты

Lisp

(defun map-sum (w v)
  (cond ((null w) nil)
        (t (cons (+ (car w) (car v)) (map-sum (cdr w) (cdr v))))))
 
> (map-sum '(1 2 3)  '(4 5 6))
(5 7 9)

Добавлено через 45 секунд

Lisp

(defun map-sum (w v)
  (when w (cons (+ (car w) (car v)) (map-sum (cdr w) (cdr v)))))
 
> (map-sum '(1 2 3)  '(4 5 6))
(5 7 9)

Добавлено через 3 минуты

Lisp

(defun map-sum (w v)
  (loop for a in w
        for b in v
        collect (+ a b)))
 
> (map-sum '(1 2 3)  '(4 5 6))
(5 7 9)

Lisp

(defun map-sum (w v) (mapcar #'+ w v))
 
> (map-sum '(1 2 3)  '(4 5 6))
(5 7 9)

@Catstail · 22.05.2014, 17:50

Lisp

(defun sum-pair (l1 l2)
  (iter (for i1 in l1)
        (for i2 in l2) (collecting (+ i1 i2))))
 
==> sum-pair
 
(sum-pair '(1 2 3) '(4 5 6))
 
==> (5 7 9)

@smoke853 · 22.05.2014, 18:36

Clojure:

Lisp

(defn task [c1 c2]
  (loop [[x & xs :as all1] c1
         [y & ys :as all2] c2
         e-coll nil]
    (if (or (empty? all1) (empty? all2))
      (reverse e-coll)
      (recur xs ys (cons (+ x y) e-coll)))))
;; => #'user/task
 
(task '(2 3 4) '(3 4 5))
;; => (5 7 9)

@Otar4ik · 22.05.2014, 18:47 **[ТС]**

Спасибо)

@Otar4ik · 26.05.2014, 10:27 **[ТС]**

А можно сделать так,чтобы выводилось сумма больше 7-ми?Только 9-тка.

Lisp

(defun map-sum (w v)
  (cond ((null w) nil)
        (t (cons (+ (car w) (car v)) (map-sum (cdr w) (cdr v))))))
 
> (map-sum '(1 2 3)  '(4 5 6))
(5 7 9)

@Catstail · 26.05.2014, 11:04

Lisp

(defun map-sum (w v h) ;; вывод сумм, больших h
  (cond ((null w) nil)
        (t (let ((z (+ (car w) (car v))))
                 (if (> z h) (cons z (map-sum (cdr w) (cdr v) h))
                                     (map-sum (cdr w) (cdr v) h)))))) 
 
==> map-sum
 
(map-sum '(1 2 3) '(4 5 6) 7)
 
==> (9)

@Otar4ik 3 / 3 / 1 Регистрация: 20.10.2013 Сообщений: 94
	22.05.2014, 18:47 [ТС]	5
	Спасибо) 0

	26.05.2014, 11:04