このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1337692704/123
#  【 課題 】6〜13行目を変更してマップを自動作成する。  
#  【 形態 】1. Javaアプリケーション(main()で開始)/【 GUI  】制限なし  
#  【 期限 】6月28日 午前10時 《必須》  
#  【 Ver  】java javac jEdit  
#  【 補足 】このソースコードを改変して下さい 
#   
#  import java.util.Scaner; 
#  class Array8{ 
#  public static void main(String[] args){ 
#  //司法にダミーの0を置いているmapの作成. 
#  int[][] map = { 
#  {0, 0, 0, 0, 0, 0,}, 
#  {0, 1, 1, 1, 0, 0,}, 
#  {0, 1, 0, 1, 0, 0,}, 
#  {0, 0, 1, 1, 0, 0,}, 
#  {0, 1, 0, 0, 1, 0,}, 
#  {0, 0, 0, 0, 0, 0,}, 
#  }; 
#  while(true){ 
#  int x = 0; 
#  int y = 0; 
#  int sum = 0; 

'四方にダミーの0を置いているmapの作成'(_map,_四方にダミーの0を置いているmap) :-
        'mapを転置して行の最初と最後に0を付加する'(_map,_転置して行の最初と最後に0を付加されたmap),
        'mapを転置して行の最初と最後に0を付加する'(_転置して行の最初と最後に0を付加されたmap,_四方にダミーの0を置いているmap).

'mapを転置して行の最初と最後に0を付加する'(_map,_転置して行の最初と最後に0を付加されたmap) :-
        転置(_map,_転置されたmap),
        findall(_最初と最後に0を付加された行,(
                    member(_行,_転置されたmap),
                    行の最初と最後に0を付加する(_行,_最初と最後に0を付加された行)),
                _転置して行の最初と最後に0を付加されたmap).

行の最初と最後に0を付加する(_行,_最初と最後に0を付加された行) :-
        append([0|_行],[0],_最初と最後に0を付加された行).



%  転置/2