[МихМих]

Подскажите пожалуйста как можно с помощью Lispa удалить строку содержающую определённый символ из списка....к примеру имею список вида:
("Привет1" "Привет2" "%Привет3" "Привет4")

какую команду правильнее применить чтобы например удалить строку в которой содержится знак %
можно через vl-remove но как задать чтобы удалялись все строки со знаком % ?
Спасибо

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

_$ (setq lst '("Привет1" "Привет2" "%Привет3" "Привет4"))
("Привет1" "Привет2" "%Привет3" "Привет4")
_$ (vl-remove-if '(lambda(x)(wcmatch x "*%*")) lst)
("Привет1" "Привет2" "Привет4")

[МихМих]

Спасибо ОГРОМНОЕ!!
крутил вертел с vl-remove-if и wcmatch ничего не получалось.... а вот lambda помог..... тока даж после прочтения справки не могу понять как этот lambda работает......

[Дима_]

lambda это по сути главная функция лиспа - (lambda ([x y ...])) возращает функцию (не выполняет, а просто создает с аргументами x y ... (или без них)). По сути defun это производная от lambda,

Код:

[Выделить все]

(defun test (a) (* a a))

это не что иное как

Код:

[Выделить все]

(setq test (lambda (a) (* a a)))

Но самое интересное то, что и setq - производная от lambda (просто он работает в "глобальном" окружении) - набор команд

Код:

[Выделить все]

(setq a 5)
 (* a (+ a 2))

это не что иное как

Код:

[Выделить все]

((lambda (a) (* a (+ a 2))) 5)

- то есть выполнить "жирную" функцию с аргументом 5.
Offtop: p.s. "вторая" функция лиспа по моей иерархии - cons - попробуй сам разберись.

[МихМих]

Дима_ спасибо большое за подробное разъяснение ))) Видно долго мне ещё постигать секреты LISP .... в принципе тему можно закрывать

[Лиспер]

Для последователей VBA / VB:

Код:

[Выделить все]

(vl-remove-if '(lambda(x)(wcmatch x "*%*")) lst)

Может быть переведен как (только в целях улучшения понимания!):

Код:

[Выделить все]

(defun test (/ res)
  (foreach item lst
    (if (not (wcmatch x "*%*"))
      (setq res (cons item res))
      ) ;_ end of if
    ) ;_ end of foreach
  (reverse res)
  ) ;_ end of defun

[gomer]

Для последователей русского языка:
1 вариант если нашли в элементе "*%*", убираем его из списка...
2 вариант Для каждого элемента списка, если нашли в нем "*%*", добавляем его в новый список...

[Дима_]

Не владея предметом не говорите - лисп не умеет "убирать" из списков - и тот и другой лисп возращает НОВЫЙ список с удаленными элементами - так уж он устроен.

[Кулик Алексей aka kpblc]

Дима_, переведи, а то лично меня ты в ступор вогнал

[hwd]

Сообщение от Кулик Алексей aka kpblc Дима_, переведи, а то лично меня ты в ступор вогнал

Я его понял так, что список является неизменяемой структурой, а то, что воспринимается как "удаление" из списка, на самом деле является формированием нового списка, но уже без "удалённого" элемента.

[Дима_]

то крыс - hwd сказал абсолютно верно, попробуй без setq измени какой либо список (сохраненный например), да и с setq его-же можно только перепсать.
p.s. надо-же, я, что-то Крысу объясняю - маэстро что с Вами?

[Кулик Алексей aka kpblc]

Ну вы еще распределение памяти прикрутите сюда

[gomer]

Сообщение от hwd список является неизменяемой структурой, а то, что воспринимается как "удаление" из списка, на самом деле является формированием нового списка, но уже без "удалённого" элемента.

Возможно, vl-remove-if работает аналогично 2-му примеру, а, возможно нет...
Тем более что 2-й вариант - не рабочий
Тогда уж так...

Код:

[Выделить все]

 (setq lst '("Привет1" "Привет2" "%Привет3" "Привет4"))

(defun test (/ res)
  (setq	res lst
	lst '()
  )
  (foreach item	res
    (if	(not (wcmatch item "*%*"))
      (setq lst (cons item lst))
    )
  )
  (setq lst (reverse lst))
)
(test)

или так

Код:

[Выделить все]

(setq lst '("Привет1" "Привет2" "%Привет3" "Привет4"))

(defun test (/ res)
  (setq res '())
  (foreach item	lst
    (if	(not (wcmatch item "*%*"))
      (setq res (cons item res))
    )
  )
  (setq lst (reverse res))
)
(test)

[Елпанов Евгений]

еще один пример, без setq и lambda...

Код:

[Выделить все]

(defun f (l)
 (cond ((not l) nil)
       ((wcmatch (car l) "*%*") (f (cdr l)))
       ((cons (car l) (f (cdr l))))
 )
)