[===AAA===]

Всем привет!

Имеется список с именами файлов типа:

("Файл-1" "Файл-2" "ФАЙЛ-1" "ФАйл-1" "файл-1" "Файл-3" … )

С точки зрения LISP - это разные элементы списка.
С точки зрения Windows - файлы с одинаковыми именами.

Нужно убрать "лишнее", т.е. одинаковое по смыслу,
но стоящее дальше от начала списка.

т.е. "лишнее" здесь - "ФАЙЛ-1" "ФАйл-1" "файл-1".

Чтобы получилось:

("Файл-1" "Файл-2" "Файл-3" … )

Загнать всё в верхний регистр и убрать повторы - легко,
но "не спортивно" как-то...

Напишу, конечно, и сам (тут навскидку строчек 20 кода),
но, может быть у кого-то есть уже готовое решение?

[trir]

но "не спортивно" как-то...

почему?

list = list.Select(s => s.ToUpper()).Distinct().ToList();

[===AAA===]

Сообщение от trir почему?

Из эстетических соображений.

Тут вот какое дело. Эти имена файлов пользователи
записывают в таблицу Excel. Затем программа из
данных, находящихся разных фалах Excel и DWG
создает новые DWG-файлы как раз с указанными
именами.

Некоторым пользователям имена критичны, т.к.
они "зрительно" наполняют их смыслом. Что-то
типа:

"НасосыКонтурВходы1...18_Автомат"

вот так - разные буквы, цифры, да ещё и точки,
которые не отделяют расширение, а являются
частью имени. И загонять всё это в другой
регистр не хочется.

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

Код:

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

 (setq lst '("Файл-1" "Файл-2" "ФАЙЛ-1" "ФАйл-1" "файл-1" "Файл-3"))
(foreach item lst
  (if (not (member (strcase item) (mapcar (function strcase) res)))
    (setq res (cons item res))
  ) ;_ end of if
) ;_ end of foreach
(reverse res)