Описать рекурсивную функцию для заполнения одномерного массива

@griboyski · Регистрация: 06.05.2014

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

описать рекурсионно функцию для заполнения одномерного массива целыми случайными числами без повторений.
prolog 5.2
ребята выручайте!!

@Catstail · 20.05.2014, 18:13

Не претендую на красоту, но в TP работает:

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
domains
int=integer
intl=int*
 
predicates
arr(int,int,intl)
uarr(int,int,intl)
member(int,intl)
setof(intl,intl)
take(intl,int,intl)
 
clauses
 
%% Взять N элементов с начала списка
 
take(_,0,[]) :- !.
take([H|T],N,[H|Q]) :- N1=N-1, take(T,N1,Q). 
 
%% входит ли число в список
 
member(X,[X|_]) :- !.
member(X,[_|T]) :- member(X,T).
 
%% Удалить повторения (построить множество) из списка
 
setof([],[]) :- !.
setof([H|T],Q) :- member(H,T),setof(T,Q).
setof([H|T],[H|Q]) :- not(member(H,T)), setof(T,Q).
 
%% Заполнить список длины N случайными числами из диапазона
%% [1,M] (с возможными повторениями)
 
arr(M,1,[X]) :- random(Y), X=M*Y, !.
arr(M,N,[X|T]) :- N1=N-1, arr(M,N1,T), random(Y), X=M*Y.
 
%% Решение задачи
 
uarr(M,N,[]) :- N>M, fail.
uarr(M,N,X)  :- N2=N*2, arr(M,N2,Z), setof(Z,Q), take(Q,N,X).

Новые блоги и статьи Все статьи Все блоги /
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений 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

@griboyski 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 2

	Описать рекурсивную функцию для заполнения одномерного массива 14.05.2014, 01:19. Показов 826. Ответов 1 Метки нет (Все метки) описать рекурсионно функцию для заполнения одномерного массива целыми случайными числами без повторений. prolog 5.2 ребята выручайте!! 0