Поиск младшего сына и индексы заданого элемента в списке

@seltsam · Регистрация: 12.10.2013

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

Здравствуйте, Уважаемые!
Собственно вопрос. На диалекте SWI Prolog yеобходимо сделать два задания:
1) найти младшего сына исходя из таких данных

Prolog
1
2
3
4
5
6
7
father(bob, mary).
father(bob, jane).
man(bob).
man(jim).
age(bob,70).
age(jon, 20).
age(jim, 30).

С тем как найти просто сына вопросов не возникает

Prolog
1
son(X,Y):-(father(Y,X);mother(Y,X)),man(X).

Но как определить что он младший? Идеи с поискам минимума между двумя сыновьями не работает как только оказывается что сын один.
2) Написать предикат IndicesOf для нахождения списка индексов всех вхождений елемента в список.
Тут пыталась преобразовать вот такой код, но моих знаний явно не хватает:

Prolog
1
2
3
find_pos([],_,0):-!.
find_pos([H|T],X,K):- X<>H,K1=K+1,find_pos(T,X,K1).
find_pos(_,_,K):-write(K),nl,!.

Уже несколько дней мучаюсь, и обыскала все и вся. Помогите пожалуйста в решении этих задач. 3 подобных уже сделала, а эти две ну никак не получаются.

@Black Fregat · 03.11.2015, 16:07

Собственно, вариантов два:
- собрать все решения в список, а уже по списку выбрать минимальный элемент;
- перебрать все решения одно за другим, сохраняя минимальное в динамической базе.

Вот первый:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
all_sons(Y, L) :- findall(X, son(X, Y), L).
 
select_yungest([X], X). 
select_yungest([X,Y|T], R) :-
    min(X, Y, Z), 
    select_yungest([Z|T], R).
 
min(X, Y, X) :-
    age(X, AX),
    age(Y, AY),
    AX < AY,
    !. 
min(_, Y, Y).

@seltsam · 03.11.2015, 19:00 **[ТС]**

Спасибо Вам большое! Но подскажите пожалуйста что из этого нужно вызвать что бы найти например сына jim?

@Black Fregat · 04.11.2015, 01:39

Prolog
1
all_sons(jim, L), select_yungest(L, X).

@seltsam · 04.11.2015, 09:41 **[ТС]**

Огромное Вам спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@seltsam 0 / 0 / 0 Регистрация: 12.10.2013 Сообщений: 12
	03.11.2015, 19:00 [ТС]
	Спасибо Вам большое! Но подскажите пожалуйста что из этого нужно вызвать что бы найти например сына jim? 0

@seltsam 0 / 0 / 0 Регистрация: 12.10.2013 Сообщений: 12
	04.11.2015, 09:41 [ТС]
	Огромное Вам спасибо! 0

Поиск младшего сына и индексы заданого элемента в списке

Решение