Предикат, заменяющий два подряд идущих одинаковых элемента одним

@марина201 · Регистрация: 17.11.2010

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

помогите решить задачу "Создайте предикат, заменяющий в исходном списке два подряд
идущих одинаковых элемента одним."

@rrrFer · 17.11.2010, 18:10

марина201, не соблюдены рекомендации по созданию тем. Читайте правила внимательнее:

2.3. Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.

кроме того, желательно попробовать решить проблему самостоятельно и приложить код, даже если он не работает. (тогда помогут быстрее)

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

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
domains     
    element=integer
    list=element*
predicates
    input(list)
    output(list) 
    shift(list,list)              /*сдвиг вправо*/
    getlast(list,element,element) /*получение последнего элемента*/ 
    deletelast(list,list)         /*удаление последнего элемента*/
    parLen(list)                  /*четность длины списка*/
    chArPL(list,integer)          /*проверка на арифметическую прогрессию списка*/  
    getLenList(list,integer)      /*определение длины списка*/
    chpel(list,list)                /*замена двух идущих подряд символов - одним */
 
    %start
clauses            
 
    input([X|T]):-
        write("ввести элемент - y/n: "),
        readchar(YN),nl,
        YN<>'n',    
        write("Введи элемент: "),
        readInt(X),nl, 
        input(T).  
    input([]):-
        write("ввод закончен"),nl. 
 
    output([]).
    output([H|T]):- 
        write(H),write(" "),
        output(T).  
 
    shift([],[]).
    shift([H|T],[E|L]):-
        getlast([H|T],_,E),
        deletelast([H|T],L).
    getlast([],E,E).
    getlast([H|T],_,E):-
        getlast(T,H,E).  
    deletelast([_|[]],[]).
    deletelast([H|T1],[H|T2]):-
        deletelast(T1,T2).  
   
    parLen([]).
    parLen([_,_|Tail]):-parLen(Tail). 
    
    chArPL([_|[]],_).
    chArPL([H,T|TT],N):-
        N=T-H,
        chArPL([T|TT],N).
              
    getLenList([],N):-N=0.
    getLenList([_|L],N):-
        getLenList(L,N1),
        N=N1+1.
        
    chpel([],_).
    chpel([Hi|[Hii|Tii]],[Ho|To]):-
        Hi=Hii, Ho=Hi, chpel([Hi|Tii],[Ho|To]).
    chpel([Hi|Ti],[Hi|To]):-
        chpel(Ti,To).
    
        
goal
       L=[1,1,2,3,4,4,5,6,6],    
       output(L),nl,
       chpel(L,L1),
       output(L1),nl.

лишнее сама удалишь

@Alenka007 · 10.03.2015, 14:23

А вы не могли бы подсказать,как пользователю самому вводить числа,не после goal,а в самом запросе?

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@марина201 0 / 0 / 0 Регистрация: 17.11.2010 Сообщений: 3

	Предикат, заменяющий два подряд идущих одинаковых элемента одним 17.11.2010, 17:26. Показов 3038. Ответов 2 Метки нет (Все метки) помогите решить задачу "Создайте предикат, заменяющий в исходном списке два подряд идущих одинаковых элемента одним." 0

@Alenka007 0 / 0 / 0 Регистрация: 16.12.2014 Сообщений: 21
	10.03.2015, 14:23
	А вы не могли бы подсказать,как пользователю самому вводить числа,не после goal,а в самом запросе? 0