smallest.pl « prolog - 7l - Solutions for the books "7 languages in 7 weeks" I + II

summary refs log tree commit diff

path: root/prolog/smallest.pl

blob: 1a8835b7842157c025e8fd6d519b68c5a9304fb5 (plain) (blame)

smallest([H], H).
smallest([H|T], S) :-
	smallest(T, E),
	(H<E -> S is H; S is E).