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


         

что числа списка заключены между


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

        ****

        ******

        *****
        Процедуру диагр
можно определить так:
                диагр( [N | L]) :-

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

                    диагр( L).
                звеэдочки( N) :-

                    N > 0,

                    write( *),

                    Nl is N - 1,

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

                    N =< 80.

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