Clojure Определить функцию, объединяющую атомы двух списков

@olenka_ke · Регистрация: 26.10.2015

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

Помогите определить функцию, объединяющую атомы двух списков в один ассоциативный список ((x1.y1)(x2.y2)(x3.y3) ... ...)
а) для списка из атомов
б) для списка, содержащего подсписки

@ntlinuxnt · 30.03.2017, 20:53

Clojure

Lisp

1 2	(map vector '(1 2 3) '(4 5 6)) ;=>([1 4] [2 5] [3 6])

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

Lisp

1 2	(map list '(1 2 3) '(4 5 6)) ;=> ((1 4) (2 5) (3 6))

Или так

@Catstail · 30.03.2017, 22:38

Одноуровневые списки:

Lisp

(defun task (l1 l2) 
  (mapcar 'cons l1 l2))
 
==> TASK
 
(task '(a b c d) '(1 2 3 4))
 
==> ((A . 1) (B . 2) (C . 3) (D . 4))

Многоуровневые:

Lisp

(defun task (l1 l2)
  (mapcar 'cons (flatten l1) (flatten l2)))
 
==> TASK
 
(task '(a b (c d)) '(1 2 3 4))
 
==> ((A . 1) (B . 2) (C . 3) (D . 4))

@olenka_ke · 01.04.2017, 20:07 **[ТС]**

благодарю!!!

Добавлено через 36 минут
как быть, если в CommonLisp возникает ошибка, что функция flatten не определена?

@Catstail · 03.04.2017, 09:27

Сообщение от olenka_ke

как быть, если в CommonLisp возникает ошибка, что функция flatten не определена?

- определить:

Lisp

(defun flatten (lst)
  (cond ((null lst) nil)
        ((atom (car lst)) (cons (car lst) (flatten (cdr lst))))
        (t (append (flatten (car lst)) (flatten (cdr lst))))))
 
==> FLATTEN
 
(flatten '(a s d ((d) t (5 6)) (((y)))))
 
==> (A S D D T 5 6 Y)

@olenka_ke 0 / 0 / 0 Регистрация: 26.10.2015 Сообщений: 27
		1
	Clojure Определить функцию, объединяющую атомы двух списков 30.03.2017, 19:21. Показов 1816. Ответов 4 Метки ассоциативный список (Все метки) Помогите определить функцию, объединяющую атомы двух списков в один ассоциативный список ((x1.y1)(x2.y2)(x3.y3) ... ...) а) для списка из атомов б) для списка, содержащего подсписки 0

@olenka_ke 0 / 0 / 0 Регистрация: 26.10.2015 Сообщений: 27
	01.04.2017, 20:07 [ТС]	4
	благодарю!!! Добавлено через 36 минут как быть, если в CommonLisp возникает ошибка, что функция flatten не определена? 0

	03.04.2017, 09:27

Clojure Определить функцию, объединяющую атомы двух списков

Решение