> 1 <

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

sagveb

Members


Статус

1 сообщений

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

#7458   2014-11-08 12:26 GMT+3 часа(ов)      
Напишите функцию с использованием функционалов. При необходимости используйте локальные или вспомогательные функции.

Задание: Напишите функцию, единственным аргументом которой являлся бы список списков, объединяющую все эти списки в один.

Нужно использовать функционалы: mapcar или maplist по заданию - а у меня кроме как используя рекурсию не получается никак..:

(defun func1 (list1 list2)
(cond ((null list1) list2)
(t (cons (car list1) (func1 (cdr list1) list2)))))

(defun listnew (list1)
(cond ((null list1) nil)
(t (func1 (car list1) (listnew (cdr list1))))))

_sg

Members


Статус

36 сообщений

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

#7691   2016-01-23 12:47 GMT+3 часа(ов)      
(defun flatten (w)
(mapcan #'(lambda (a) (if (atom a) `(,a) (flatten a))) w))
 
> (flatten '(a (b)))
(A B)
> 1 <


Онлайн :

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




Реклама на сайте: