IT-IATU
Информационные системы
Самолетостроение
ОНД
Займы с 18 лет
Главная
»
Информационные системы
»
Представление знаний в ИС
»
Опишите предикат, определяющий наибольший по количеству элементов
Опишите предикат, определяющий наибольший по количеству элементов
тут тоже всегда no ><
% Bilet3
% Patched by JamshyT 14.01.13
% Special for AISTd-31 :)
% To start type: jstart.
prin(X,[X|L]).
prin(X,[Y|L]):-prin(X,L).
kol(0,[]).
kol(K,[Y|L]):-kol(K1,L),K is K1+1.
sum(0,[]).
sum(S,[Y|L]):-sum(S1,L),S is S1+Y.
scepka([],L,L).
scepka([Y1|L1],L2,[Y1|L]):-scepka(L1,L2,L).
podspisok(L1,L2):-scepka(L5,L4,L2),scepka(L1,L3,L4).
vozrast([]).
vozrast([X]).
vozrast([X,Y|L]):-X<Y,vozrast([Y|L]).
vozrastpodspisok(L1,L2):-podspisok(L1,L2),vozrast(L1).
longer(L1,L2):-kol(X1,L2),kol(X2,L1),X1>X2.
maxlist(X,L):-prin(X,L),not (prin(Y,L),longer(X,Y)).
vpnd(L1,L):-setof(X,vozrastpodspisok(X,L),L2),maxlist(L1,L2).
jstart:- write(' Vvedite spisok L1: '),nl,read(LJAM1),nl,
write(' Vivod spiska L1= '),
write(LJAM1),nl,
write(' Vvedite spisok L2: '),nl,read(LJAM2),nl,
write(' Vivod spiska L2= '),
write(LJAM2),nl,
vpnd(LJAM1,LJAM2).
Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.
Поиск по сайту
Поделиться
Дисциплины
Информационные системы
Проектирование ИС
Интеллектуальные ИС
Информационная безопасность и защита информации
Информационные сети
Моделирование систем
Администрирование в ИС
Информационные технологии
Операционные системы
Представление знаний в ИС
Алгоритмизация
Архитектура ЭВМ
Управление данными
Технология программирования
Компьютерная геометрия и графика
Информатика
Самолетостроение
Конструкция и проектирование самолетов
Автоматизированное проектирование конструкций
Основы теории управления
Теория информационных процессов и систем
Электротехника
Физика
Физика (3 семестр)
Прикладная механика
Общенаучные дисциплины
Экономика
Метрология
Философия
Математика (1 семестр)
Математика (2 семестр)
Математика (3 семестр)
Культурология
История
Химия
Биология
Английский язык онлайн – быстро и просто
Что делать, если по учёбе гора долгов?
Помощь в поступлении в американский ВУЗ от Марии Гурьевой
Полиграфическая продукция