Программирование на языке ПРОЛОГ для искуственного интеллекта




Вывод списков - часть 2


Следующая процедура диагр выводит список в такой форме (предполагается, что числа списка заключены между 0 и 80). Пример ее использования:

        ?- диагр( [3, 4, 6, 5] ).

        ***
        ****
        ******
        *****

        Процедуру диагр можно определить так:

                диагр( [N | L]) :-
                    звездочки( N), n1,
                    диагр( L).

                звеэдочки( N) :-
                    N > 0,
                    write( *),
                    Nl is N - 1,
                    звездочки( Nl).

                звездочки( N) :-
                    N =< 80.




Содержание  Назад  Вперед