Заменить вхождения в списке

@stu_dent · Регистрация: 18.02.2011

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

Доброе время суток всем форумчанам!пытаюсь решить следующую задачку :
Создайте предикат, заменяющий в исходном списке все вхождения заданного значения другим.
так вот с горем пополам написал вот такую прогу

Prolog
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
implement zamena
    open core
    
domains
    list = integer*.
    
class predicates
    zam : (integer, integer, list, list) nondeterm anyflow.
 
constants
    className = "zamena".
    classVersion = "".
 
clauses
    classInfo(className, classVersion).
 
clauses
    zam(_, _, [], []).
    zam(Y, Z, [Y|Xs], [Z|Xs]):-!.
    zam(Y, Z, [X|Xs], [X|Ys]):-X<>Y, zam(Y, Z, Xs, Ys).
 
 
 
    run():-
        console::init(),
        Y = stdio::read(),
        Z = stdio::read(),
        Xs = stdio::read(),
        zam(Y,Z,Xs, Zs),
        stdio::write(Zs),
        fail().
     run():-
        succeed(). % place your own code here
end implement zamena
 
goal
    mainExe::run(zamena::run).

ета программа заменяет первый елемент во вхождении, а мне нужно проивести замену всех похожих елементов.тоесть я ввожу 4 заменить на 19 потом пишу [4,5,9,4,12,4,1], а в результате получаю [19,5,9,19,12,19,1] - ети операции проводяться в консоли. поправтье кто знает!ЗАРАНЬЕЕ ВСЕМ БЛАГОДАРЕН!

@rrrFer · 28.02.2011, 16:45

stu_dent,
воспользуемся поиском по разделу, используем ключевое слово "заменяет", находим вот эту тему:
https://www.cyberforum.ru/prol... 78835.html
первая задача совпадает с вашей, и именно эта задача там решена.

@stu_dent · 28.02.2011, 17:38 **[ТС]**

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

stu_dent,
воспользуемся поиском по разделу, используем ключевое слово "заменяет", находим вот эту тему:
https://www.cyberforum.ru/prol... 78835.html
первая задача совпадает с вашей, и именно эта задача там решена.

нет! ето то, но не то! мне нужно мою прогу подправить,тот код не пойдет!

@rrrFer · 28.02.2011, 18:17

stu_dent, если сами поправить пробовали, используя тот код - то приведите что получилось

Добавлено через 33 минуты

Prolog
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
 
 
implement main
    open core
    
domains
    list = integer*.
    
class predicates
    zam : (list, integer, list, integer) procedure  (i,i,o,i).
 
constants
    className = "zamena".
    classVersion = "".
 
clauses
    classInfo(className, classVersion).
 
clauses
 
    zam([],_,[],_):-!.
    zam([S|L],S,[S1|L1],S1):- 
        zam(L,S,L1,S1),!.
    zam([H|L],S,[H|L1],S1):-
        zam(L,S,L1,S1).
 
    run():-
        console::init(),
        Y = stdio::read(),
        Z = stdio::read(),
        Xs = stdio::read(),
        zam(Xs,Y,Zs, Z),
        stdio::write(Zs),
        _=stdio::readline(),
        _=stdio::readline(),
        succeed(). % place your own code here
end implement main
 
goal
    mainExe::run(main::run).

@pavelr · 28.02.2011, 18:23

Вот в консоли VP 5.2:

Prolog
1
2
3
4
5
6
7
8
9
10
11
domains
intlist=integer*
predicates
zamena(integer,integer,intlist,intlist)
clauses
zamena(_,_,[],[]).
zamena(Find,New,[Find|T1],[New|T2]):-zamena(Find,New,T1,T2),!.
%zamena(Find,New,[Find|T1],[New|T1]):-!.
zamena(Find,New,[Y|T1],[Y|T2]):-Find<>Y,zamena(Find,New,T1,T2).
goal
zamena(5,7,[2,5,6,11,5,16,2,78,23,12,5],L).

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. 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	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@rrrFer Заблокирован
	28.02.2011, 16:45
	stu_dent, воспользуемся поиском по разделу, используем ключевое слово "заменяет", находим вот эту тему: https://www.cyberforum.ru/prol... 78835.html первая задача совпадает с вашей, и именно эта задача там решена. 1