このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/102
#  【質問テンプレ】 
#  [1] 授業単元:program演習 
#  [2] 問題文(含コード&リンク): 
#  配列Aに 
#  0 ABD; 
#  1 BA; 
#  2 CD; 
#  3 AE; 
#  4 ABCDE; 
#  のようにアルファベットが格納されている。 
#  これを0から順番に配列Bに 
#  0 A 
#  1 B 
#  2 D 
#  3 C 
#  4 E 
#  のようになるように格納するにはどうすればよいか? 
#  プログラムの説明も兼ねて説明をせよ。 
#  

'配列Aに\\n0 ABD;\\n1 BA;\\n2 CD;\\n3 AE;\\n4 ABCDE;\\nのようにアルファベットが格納されている。これを0から順番に配列B\\n0 A\\n1 B\\n2 D\\n3 C\\n4 E\\nのようになるように格納する'(_A,_B) :-
        flat(_A,_A_2),
        findall(U,(
                    append(L0,[U|_],_A_2),
                    \+(member(U,L0))),
                _B).