Определить первую цифру натурального числа N - Prolog
Формулировка задачи:
Составьте программу,отыскивающую первую цифру натурального числа N.
Решение задачи: «Определить первую цифру натурального числа N»
textual
Листинг программы
predicates first_dig(integer,integer) clauses first_dig(N,N) :- N<10. first_dig(N,K) :- N>=10, P=N div 10, first_dig(P,K).