Реализовать с применением функционалов и лямбда-выражений следующую функцию

@den1xbtahke · Регистрация: 03.12.2014

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

Здравстуйте, помогите решить задачку:
"Реализовать с применением функционалов и лямбда-выражений следующую функцию: для исходного сложного числового списка, построить список, состоящий из элементов исходного списка, отрицательные числа в котором заменены 0."
Результат ожидается такого вида:
> (positive_list '(1 ((-2 3) -4) 5 (6)))
(1 ((0 3) 0) 5 (6))
Заранее спасибо!

@Catstail · 03.12.2014, 14:44

Lisp

(defun task (lst)
  (mapcar #'(lambda (x) 
    (cond ((listp x) (task x))
          ((plusp x) x)
          (t 0))) lst))
 
==> task
 
(task '(1 ((-2 3) -4) 5 (6)))
 
==> (1 ((0 3) 0) 5 (6))

@den1xbtahke · 03.12.2014, 16:17 **[ТС]**

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

(defun task (lst)
* (mapcar #'(lambda (x)
* * (cond ((listp x) (task x))
* * * * * ((plusp x) x)
* * * * * (t 0))) lst))
==> task
(task '(1 ((-2 3) -4) 5 (6)))
==> (1 ((0 3) 0) 5 (6))

Спасибо вам, большое =)

@den1xbtahke 0 / 0 / 0 Регистрация: 03.12.2014 Сообщений: 3
		1
	Реализовать с применением функционалов и лямбда-выражений следующую функцию 03.12.2014, 14:05. Показов 783. Ответов 2 Метки нет (Все метки) Здравстуйте, помогите решить задачку: "Реализовать с применением функционалов и лямбда-выражений следующую функцию: для исходного сложного числового списка, построить список, состоящий из элементов исходного списка, отрицательные числа в котором заменены 0." Результат ожидается такого вида: > (positive_list '(1 ((-2 3) -4) 5 (6))) (1 ((0 3) 0) 5 (6)) Заранее спасибо! 0

@den1xbtahke 0 / 0 / 0 Регистрация: 03.12.2014 Сообщений: 3
	03.12.2014, 16:17 [ТС]	3
	Сообщение от Catstail (defun task (lst) * (mapcar #'(lambda (x) * * (cond ((listp x) (task x)) * * * * * ((plusp x) x) * * * * * (t 0))) lst)) ==> task (task '(1 ((-2 3) -4) 5 (6))) ==> (1 ((0 3) 0) 5 (6)) Спасибо вам, большое =) 0