Тема: Multi, list, find
Показать сообщение отдельно
  (#2 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,958
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 11.02.2018, 13:11

Visual Prolog Код:
implement main
   open core, console

class predicates
    comboCard : (unsigned*, unsigned) multi (o,o).

clauses
    comboCard([0, 13, 6, 4, 1], 0).
    comboCard([1, 9,14,18, 25], 2).

   run() :- X = read(),  %читаем число с клавы
        clearInput(),  %очищаем буфер клавы после ввода
        comboCard(XL,Id),    %вызываем очередной comboCard
        X in XL,  % проверяем наличие X в списке XL
        write(Id),  % если есть, то выводим Id
        _ = readchar(),!;
        write("Ничего не найдено"),    %если ни в одном comboCard элемента нет, то выводим сообщение
        _ = readchar().
end implement main
goal
   console::run(main::run).
Ответить с цитированием
Пользователь сказал cпасибо:
MaxBlack (11.02.2018)
Ads