Замена элеметов списка

@dow · Регистрация: 10.12.2012

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

Всем привет =)
Дана такая задача:
l1,l2,l3 - списки, элементами которых являются атомы.
Заменить в списке l1 все вхождения элементов из
списка l2 на элементы из списка l3 под
соответствующими порядковыми номерами.
Как отследить замену под соответствующими порядковыми номерами

@Catstail · 14.12.2012, 22:58

Вот развернутое элементарное решение:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
;; вспомогательная функция индекс атома в списке (-1 если атом не входит в список)
 
(defun index (lst a)
   (cond ((Not (member a lst)) -1)
         ((EQ (car lst) a) 0)
         (t (+ 1 (index (cdr lst) a))))) 
 
==> index
 
(index '(a b c d) 'f)
 
==> -1
 
(index '(a b c d) 'd)
 
==> 3
 
;; Вспомогательная функция дать атом по номеру
 
(defun get-atom (lst n)
   (cond ((null lst) nil)
         ((= n 0) (car lst))
         (t (get-atom (cdr lst) (- n 1)))))
 
==> get-atom
 
(get-atom '(q w e r t) 0)
 
==> q
 
(get-atom '(q w e r t) 3)
 
==> r
 
;; Решение
 
(defun replace (l1 l2 l3)
   (cond ((null l1) nil)
         ((>= (index l2 (car l1)) 0) (cons (get-atom l3 (index l2 (car l1)) ) (replace (cdr l1) l2 l3)))
         (t (cons (car l1) (replace (cdr l1) l2 l3)))))  
 
==> replace
 
(replace '(a b c d e f) '(a c d) '(aa cc dd))
 
==> (aa b cc dd e f)

@dow · 14.12.2012, 23:17 **[ТС]**

Спасибо большое

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@dow 0 / 0 / 0 Регистрация: 10.12.2012 Сообщений: 80

	Замена элеметов списка 14.12.2012, 21:29. Показов 1440. Ответов 2 Метки нет (Все метки) Всем привет =) Дана такая задача: l1,l2,l3 - списки, элементами которых являются атомы. Заменить в списке l1 все вхождения элементов из списка l2 на элементы из списка l3 под соответствующими порядковыми номерами. Как отследить замену под соответствующими порядковыми номерами 0

@dow 0 / 0 / 0 Регистрация: 10.12.2012 Сообщений: 80
	14.12.2012, 23:17 [ТС]
	Спасибо большое 0