このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/26
#  問題:4桁の数字が与えられたとき、その4個の数字で組み合わせって、作れる?  
#  1001 ならば 0011,0101,0110,1001,1010,1100 が出来るなど。  
#  言語・コンパイラ:C gcc  
#   

'4桁の数字が与えられたとき、その4個の数字の組み合わせ'(_4桁の数字,_4個の数字の組み合わせ) :-
        atom_chars(_4桁の数字,Chars),
        setof(X,順列(Chars,4,X),_4個の数字の組合せ).