このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1362913813/844
#  たぶんやりたいことはこうだろう。数字以外の文字が1文字でもあればエラーを出す。
#  
#  [[ "$A" =~ [^0-9] ]] && echo "not number" 
#  

数字以外の文字が1文字でもあればエラーを出す(_文字列) :-
        forall(sub_atom(_文字列,_,1,_,A),member(A,['0','1','2','3','4','5','6','7','8','9'])),!.
数字以外の文字が1文字でもあればエラーを出す(_) :-
        write('エラー\n').