このディレクトリの索引

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

横向きに星のピラミッドを描く(_ピラミッドの頂点の高さ,_ピラミッドの頂点の高さ) :-
        星で行表示する(_ビラミッドの頂点の高さ),!.
横向きに星のピラミッドを描く(N,_ピラミッドの頂点の高さ) :-
        星で行表示する(N),
        N_2 is N + 1,
        横向きに星のピラミッドを描く(N_2,_ピラミッドの頂点の高さ),
        星で行表示する(N).

星で行表示する(_表示する星の数) :-
        findall(*,between(1,_表示する星の数,_),L),
        atomic_list_concat(L,A),
        writef('%t\n',[A]).