このディレクトリの索引

横向きに星のピラミッドを描く(_ピラミッドの頂点の高さ) :-
        length(L,_ピラミッドの頂点の高さ),
        横向きに星のピラミッドを描く([*],L).

横向きに星のピラミッドを描く(L,L) :-
        星で行表示する(L),!.
横向きに星のピラミッドを描く(L_1,L) :-
        星で行表示する(L_1),
        横向きに星のピラミッドを描く([*|L_1],L),
        星で行表示する(L_1).

星で行表示する(L) :-
        atomic_list_concat(L,A),
        writef('%t\n',[A]).