このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/252
#  [1] 授業単元: プログラミング基礎  
#  [2] 問題文(含コード&リンク):  
#  入力された文字列内の数字を全て削除する関数  
#  void del_digit(char str[]) を作成せよ。  
#  例 
#  ab1c23d→abcd 
#  

入力された文字列内の数字を全て削除する(_文字列,_数字を削除した文字列) :-
        findall(C,(
                    sub_atom(_文字列,_,1,_,C),
                    \+(append(_,[C|_],['0','1','2','3','4','5','6','7','8','9']))),
                L),
        concat_atom(L,_数字を削除した文字列).