このディレクトリの索引
#  
#  全て同じ文字からなる文字列だ
#  

全て同じ文字からなる文字列だ(_文字列) :-
        atom_chars(_文字列,_文字ならび),
        all(_文字ならび,_同じ文字).

all([],_).
all([A|R],A) :-
        all(R,A).