このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1362913813/843
#  ^[^0-9]+$ は数字以外だけの文字列の場合ヒット、数字混じりだと絶対ヒットしない

'数字以外だけの文字列の場合ヒット、数字混じりだと絶対ヒットしない '(_文字列) :-
        \+((sub_atom(_文字列,_,1,_,A),member(A,['0','1','2','3','4','5','6','7','8','9']))).