Как сформировать список на языке Пролог?

@honey_bunny · Регистрация: 11.11.2010

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

Помогите пожалуйста!!
Есть 2 задания:

a) Определите отношение
ПЕРЕВОД (Список1, Список2)
для перевода списка чисел от 0 до 9 и список соответствующих слов. Например,
ПЕРЕВОД ([3, 5, 2, 3], [три, пять, два, три ] ).
Используйте следующее отношения:
ОЗНАЧАЕТ (0, нуль).
ОЗНАЧАЕТ (1, один).
ОЗНАЧАЕТ (2, два).
…
б) Напишите программу для отношения ДВОЙНОЙ_СПИСОК (Список1, Список2), в котором каждый элемент Списка1 удваивается и записыва¬ется в Список2, например, ДВОЙНОЙ_СПИСОК ( [1, 2, 3 ], [1 ,1 ,2 ,2 ,3 ,3 ] ).

не получается ничего

((((

Добавлено через 20 минут
с пунктом а) как-то справилась.
остался только пункт б)..

((

@freest · 11.11.2010, 20:26

а)

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
domains
linteger=integer*
lsymbol=symbol*
predicates
word(integer,symbol)
translate(linteger,lsymbol)
clauses
     word(0,нуль).
     word(1,один).
     word(2,два).
     word(3,три).
     word(4,чотири).
     word(5,пять).
     word(6,шість).
     word(7,сім).
     word(8,вісім).
     word(9,девять).
     
     translate([],[]).
     translate([H|T],[Rh|Rt]):-
          word(H,Rh),
          translate(T,Rt).
goal
     translate([1,2,3,9,0,8,7,6,5,4],X).

б)

Prolog
1
2
3
4
5
6
7
8
9
10
domains
linteger=integer*
predicates
double(linteger,linteger)
clauses
     double([],[]).
     double([H|T],[H,H|Rt]):-
          double(T,Rt).
goal
     double([1,2,3,9,0,8,7,6,5,4],X).

ЗІ Могли б поділитися пунктом а) з іншим.

@rrrFer · 12.11.2010, 11:52

freest,

ЗІ Могли б поділитися пунктом а) з іншим.

правило 1.3:

Официальным языком форума является русский язык.

правило 3.2:

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

@freest · 12.11.2010, 21:21

"Офіційна - не єдина.
Якщо вже на те пішло, то будь-яка мова програмування суперечить правилам російської мови.
Можете розглядати цей текст, як цитату моєї думки, що вставлено у російський!!!"-Ответил Витя.

@honey_bunny · 13.11.2010, 15: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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
list_numbers = integer*
list_names = symbol*
 
predicates
 
nondeterm mean( integer, symbol )
nondeterm translate( list_numbers, list_names )
nondeterm duplicate( list_names, list_names )
nondeterm inverse(list_names, list_names)
nondeterm inv(list_names,list_names,list_names)
 
clauses
mean( 0, "нуль" ).
mean( 1, "один" ).
mean( 2, "два" ).
mean( 3, "три" ).
mean( 4, "четыре" ).
mean( 5, "пять" ).
mean( 6, "шесть" ).
mean( 7, "семь" ).
mean( 8, "восемь" ).
mean( 9, "девять" ).
 
translate([], L3):- 
inverse(L3, L4),
write( L4 ) .
 
translate( [X|L1], L2 ):-
mean( X, What ),
translate( L1, [What|L2]).
 
inverse(List, Rev):- 
inv(List, [], Rev). 
 
inv([ ], Rev, Rev):- !. 
inv([H|T], SpList, Rev):- 
inv(T, [H|SpList], Rev).
 
duplicate( [], L3 ):-
inverse( L3, L4 ),
write(L4).
 
duplicate( [X|L1], L2 ) :- 
    duplicate( L1, [X|[X|L2]]).
    
goal
In = ["один","два"],
duplicate(In, []).

работает не совсем правильно, на мой взгляд, т.к. почему-то сформированный список не хочет сам по себе выводиться, а только командой write, но преподаватель принял

@freest · 13.11.2010, 15:55

Эх)) Если бы вы записали правило translate так как у меня, то вам бы не пришлось писать инверсию. И список не выводился потому, что в итоге вы возвращяли пустой.

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
domains
list_numbers = integer*
list_names = symbol*
 
predicates
 
nondeterm mean( integer, symbol )
nondeterm translate( list_numbers, list_names )
nondeterm duplicate( list_names, list_names )
nondeterm inverse(list_names, list_names)
nondeterm inv(list_names,list_names,list_names)
 
clauses
mean( 0, "íóëü" ).
mean( 1, "îäèí" ).
mean( 2, "äâà" ).
mean( 3, "òðè" ).
mean( 4, "÷åòûðå" ).
mean( 5, "ïÿòü" ).
mean( 6, "øåñòü" ).
mean( 7, "ñåìü" ).
mean( 8, "âîñåìü" ).
mean( 9, "äåâÿòü" ).
 
translate([], L):- 
write( L ) .
 
translate( [X|L1], [What|L2] ):-
mean( X, What ),
translate( L1, L2).
 
 
duplicate( [], L):-
write(L).
 
duplicate( [X|L1], [X|[X|L2]] ) :- 
        duplicate( L1, L2 ).
        
goal
In = ["îäèí","äâà"],
duplicate(In, []).

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@honey_bunny 3 / 3 / 0 Регистрация: 11.11.2010 Сообщений: 6

	Как сформировать список на языке Пролог? 11.11.2010, 17:12. Показов 3980. Ответов 5 Метки нет (Все метки) Помогите пожалуйста!! Есть 2 задания: a) Определите отношение ПЕРЕВОД (Список1, Список2) для перевода списка чисел от 0 до 9 и список соответствующих слов. Например, ПЕРЕВОД ([3, 5, 2, 3], [три, пять, два, три ] ). Используйте следующее отношения: ОЗНАЧАЕТ (0, нуль). ОЗНАЧАЕТ (1, один). ОЗНАЧАЕТ (2, два). … б) Напишите программу для отношения ДВОЙНОЙ_СПИСОК (Список1, Список2), в котором каждый элемент Списка1 удваивается и записыва¬ется в Список2, например, ДВОЙНОЙ_СПИСОК ( [1, 2, 3 ], [1 ,1 ,2 ,2 ,3 ,3 ] ). не получается ничего (((( Добавлено через 20 минут с пунктом а) как-то справилась. остался только пункт б).. (( 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	12.11.2010, 21:21
	"Офіційна - не єдина. Якщо вже на те пішло, то будь-яка мова програмування суперечить правилам російської мови. Можете розглядати цей текст, як цитату моєї думки, що вставлено у російський!!!"-Ответил Витя. 0