このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/429
#  初めまして。ワリオPVと申します。 
#   
#  学校の宿題で下記の図形を表示させるプログラムが出たのですが、 
#  どうしても分かりません。 
#   
#  図形↓("_"はスペースの代わりです。) 
#   
#  ********** 
#  _********** 
#  __********** 
#  ___********** 
#  ____********** 
#  _____********** 
#  ______********** 
#  _______********** 
#  ________********** 
#  _________********** 
#   
#  レポート提出があるので、早めにお願いします(>_<) 
#   
#  では。 
#   

下記の図形を表示させる :- 下記の図形を表示させる([]).

下記の図形を表示させる([_,_,_,_,_,_,_,_,_,_]) :- !.
下記の図形を表示させる(L) :-
        concat_atom(L,S),
        write_formatted('%t**********\n',[S]),
        下記の図形を表示させる([' '|L]).

%%%%%%%%%%%%%%%% これは冗談 %%%%%%%%%%%%%%%%%%%%%%%

下記の図形を表示させる :- 図形(X),write_formatted('%t\n',[X]),fail.
下記の図形を表示させる.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

図形('**********'). 
図形(' **********').
図形('  **********').
図形('   **********').
図形('    **********').
図形('     **********').
図形('      **********').
図形('       **********').
図形('        **********').
図形('         **********').