このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/438
#  1] 授業単元: プログラミング実習  
#  [2] 問題文(含コード&リンク):  
#  http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10181.txt
#   
# 〜課題2〜
# 変数nを入力すると、以下の図のような表示を行うプログラムをそれぞれ作成せよ。ただし、図はn=5の場合である。
# 1つのプログラムとして作成せよ。
# 
#          *  
#     ***
#        *****
#       *******
#      *********

ピラミッド(N) :- 
    length(L1,N), 
    all(L1,' '), 
    ピラミッド(L1,[*]). 

ピラミッド([],HL) :- concat_atom(HL,S),write_formatted('%t\n',[S]). 
ピラミッド([_|L1],HL) :- 
    append(L1,HL,L1,L2), 
    concat_atom(L2,S), 
    write_formatted('%t\n',[S]), 
    ピラミッド(L1,['**'|HL]).