Список целых представить в виде гистограммы - Prolog
Формулировка задачи:
Только начал изучать Prolog, прошу написать программу с объяснением
Задача:Список, состоящий из целых чисел, иногда удобно представить в виде гистограммы. в следующем виде (предполагается, что числа в списке не слишком велики):
?– p([3,4,6,5]).
***
****
******
*****
Решение задачи: «Список целых представить в виде гистограммы»
textual
Листинг программы
hg([]).
hg([H | T]) :-
H > 0,
write("*"),
H1 is H - 1,
hg([H1 | T]).
hg([0 | T]) :-
nl,
hg(T).