このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/412
#  [1] 授業単元:C言語 for文 
#  [2] 問題文(含コード&リンク): 
#  +#+#+#+#+* 
#  +#+#+#+*-* 
#  +#+#+*-*-* 
#  +#+*-*-*-* 
#  +*-*-*-*-*  
#  この模様を二重ループを使って作成せよ 
#  


'+#+#+#+#+* 
+#+#+#+*-* 
+#+#+*-*-* 
+#+*-*-*-* 
+*-*-*-*-*  
この模様を作成する'(_模様を表すならび) :-
        findall(S,(
                    append(L1,L2,[_,_,_,_]),
                    中の模様を生成(L1,L2,S)),        
                _模様を表すならび).

中の模様を生成(L1,L2,S) :-
        all(L1,'#+'),
        all(L2,'*-'),
        atomic_list_concat(L1,S1),
        atomic_list_concat(L2,S2),
        atomic_list_concat([+,S1,S2,*],S).