Определить минимум из двух чисел

@kquick · Регистрация: 15.05.2014

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

Пытаюсь написать консольную программу на SWI Prolog.

Прогармма должна читать с консоли два числа, а затем вывести минимальное из них. Я делаю это так:

Prolog

mymin([A|B], MIN) :- MIN is min(A,B).
main :-
    readln(X),
    readln(Y),
    append(X,Y,Z),
    mymin(Z, MIN),
    write(MIN),
    nl.

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

В случае отрицательных там в список попадает два элемента - "-" и число как два элемента списка.

@Catstail · 29.03.2016, 20:24

Вот решение для Турбо-пролога:

Prolog

predicates
min(integer,integer,integer)
task
 
clauses
min(A,B,A) :- A<=B.
min(A,B,B) :- A>B.
 
task :- write("x="), readint(X), write("y="),readint(Y), min(X,Y,Z), write("min="),write(Z),nl.

	29.03.2016, 20:24