Из списка чисел s создать новый список, меняя знак у каждого атома

@krashaen · Регистрация: 26.03.2012

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

Всем привет!
есть задание: Определите функцию (f s), которая из списка чисел s создает новый список, меняя знак у каждого атома. Исходный список не предполагается одноуровневым.
Имеется собственно и решение:

Lisp

1 2	(defun L (lst) (mapcar #'(lambda (x) (if (numberp x) (- x) (L x))) lst))

нашел в просторах интернета, но не понимаю в нем ничего.
Можно ли сделать тоже самое с использованием функционала, но без решеток и ламбды?
Заранее благодарен!

@Catstail · 19.11.2015, 09:38

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

Можно ли сделать тоже самое с использованием функционала, но без решеток и ламбды?

- можно, но зачем? Тебе это прибавит понимания? Тем более, что этот код, "найденный в просторах Интернета" будет работать только для списков, состоящих исключительно из чисел.

Правильно так:

Lisp

(defun L (lst)
  (mapcar #'(lambda (x) (if (numberp x) (- x) (if (atom x) x  (L x)))) lst))
 
==> L
 
(L '(1 2 3 d ((q 2 3 e))))
 
==> (-1 -2 -3 d ((q -2 -3 e)))

"Без решеток и лямбды" этот код можно оформить так:

Lisp

(defun l (x)
 (mapcar 'f x))
 
==> L
 
(defun f (a)
  (if (numberp a) (- a) (if (atom a) a (l a))))
 
==> f
 
(L '(1 2 3 d ((q 2 3 e))))
 
==> (-1 -2 -3 d ((q -2 -3 e)))

А "совсем без решетки и лямбды" можно так:

Lisp

(defun ff (lst)
  (cond ((null lst) nil)
        ((numberp (car lst)) (cons (- (car lst)) (ff (cdr lst))))
        ((atom (car lst)) (cons (car lst) (ff (cdr lst))))
        (t (cons (ff (car lst)) (ff (cdr lst))))))
 
  
==> ff
 
(ff '(1 2 3 d ((q 2 3 e))))
 
==> (-1 -2 -3 d ((q -2 -3 e)))

Для понимания легче?

@krashaen · 27.11.2015, 09:34 **[ТС]**

Большое спасибо! Все доходчиво расписано!

@krashaen 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 28
	27.11.2015, 09:34 [ТС]	3
	Большое спасибо! Все доходчиво расписано! 0

Из списка чисел s создать новый список, меняя знак у каждого атома

Решение