> 1 <

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

Дуська

Members


Статус

21 сообщений

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

#6959   2013-03-22 22:04 GMT+3 часа(ов)      
Удалить элемент из списка.

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 67

#6965   2013-03-22 23:34 GMT+3 часа(ов)      
 
;;
;; удаление первого вхождения a в lst (список должен быть одноуровневым)
;;
(defun del-el (lst a)
(cond ((null lst) nil)
((eq a (car lst)) (cdr lst))
(t (cons (car lst) (del-el (cdr lst) a)))))
==> del-el
(del-el '(1 2 3 1 2 3 1 2 3) 1)
==> (2 3 1 2 3 1 2 3)
(del-el '(1 2 3 1 2 3 1 2 3) 2)
==> (1 3 1 2 3 1 2 3)
;;
;; удаление всех вхождений a в lst (список должен быть одноуровневым)
;;
(defun del-el (lst a)
(cond ((null lst) nil)
((eq a (car lst)) (del-el (cdr lst) a))
(t (cons (car lst) (del-el (cdr lst) a)))))
==> del-el
(del-el '(1 2 3 1 2 3 1 2 3) 2)
==> (1 3 1 3 1 3)
 
> 1 <


Онлайн :

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