Определить предикат center

@Mzzzz · Регистрация: 20.03.2013

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

помогите пожалуйста:
Определите предикат center(+X,+N,?R) – истинный тогда и только тогда, когда атом R имеет длину N, и атом X располагается приблизительно в центре R, а остальные сим-волы пробелы (N не меньше длины X), а остальные символы – пробелы.
Например,
?– center(ab, 3, X).
X=’ ab‘
Yes
?– center(abc, 6, X).
X=’ abc ‘
Yes
Используйте встроенный предикат name/2.

Добавлено через 34 минуты
Вот есть предварительная программа, можно ли ее как-нибудь упростить??

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
c(_,_,0,[]).
c(X,L,N,[32|T]):-
    N>0,
    N>L,
    C is N-1,
    c(X,L,C,T).
 
c([X|T1],L,N,[X|T2]):-
    N>0,
    N=<L,
    C is N-1,
    c(T1,L,C,T2).
 
c([],L,N,[32|T]):-
    N>0,
    N=<L,
    C is N-1,
    c([],L,C,T).
 
center(X,N,R):-
    name(X,X1),
    length(X1,L),
    ML is N//2,
    MW is L//2, 
    SW is ML-MW,
    S is N-SW,
    c(X1,S,N,R1),
    name(R,R1).

@Грымзик · 28.03.2013, 23:15

Я бы так сделала

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
n_spaces(0,[]):-!.
n_spaces(N,[32|Tail]):-N1 is N-1, n_spaces(N1,Tail).
 
center(X,N,R):-
    name(X,X1),
    length(X1,L),
    Diff is N-L,
    A is Diff//2,
    B is Diff-A,
    n_spaces(A,Begin),
    n_spaces(B,End),
    append(Begin,X1,Temp),
    append(Temp,End,R1),
    name(R,R1).

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа 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, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем