このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/592
#  特定の文字だけで構成される行 にマッチする正規表現をお願いします。 
#   
#  あああああああ 
#  wwwwwwwwwww 
#  HHHHHHHHHHHHH 
#   
#  のような行です。 
# 
# 

'特定の文字だけで構成される行にマッチする'([_行|_],_行)  :-
        atom_chars(_行,Chars),
        all(Chars,_).
'特定の文字だけで構成される行にマッチする'([_|R],_行)  :-
        '特定の文字だけで構成される行にマッチする'(R,_行).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'特定の文字だけで構成される行にマッチする'(_文字列,_行) :-
        atom(_文字列),
        atom_chars(_文字列,_文字ならび),
        '特定の文字だけで構成される行にマッチする'(_文字ならび,_行).
'特定の文字だけで構成される行にマッチする'(_文字ならび,_行)  :-
        append(L0,['\n'|R],_文字ならび),
        all(L0,A),
        \+(A='\n'),
        concat_atom(L0,_行).
'特定の文字だけで構成される行にマッチする'(_文字ならび,_行)  :-
        append(L0,['\n'|R],_文字ならび),
        all(L0,A),
        \+(A='\n'),
        '特定の文字だけで構成される行にマッチする'(R,_行).