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



         

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


Следующая процедура диагр

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

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

        ***

        ****

        ******

        *****

        Процедуру диагр

можно определить так:

                диагр( [N | L]) :-

                    звездочки( N), n1,

                    диагр( L).

                звеэдочки( N) :-

                    N > 0,

                    write( *),

                    Nl is N - 1,

                    звездочки( Nl).

                звездочки( N) :-

                    N =< 80.




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