このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/94
#  すみませんが、価格にマッチする正規表現を教えていただけないでしょうか。 
#   
#  例 
#  \1,000,000,000 
#  \12,345 
#  \1,230 
#  \200 
#  \10 
#   
#   
#  数字3つごとに、カンマが入り、先頭に円マーク(\)のくるものです。 
#   
#  判らないためググッたのですが、正規表現に関する本ばかり検索結果として出てきまして…。 
# 
# 

'価格にマッチする'(_文字列,_前文字列,_価格表現文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_価格表現文字列,_後文字列,L1,['\\'|R2],L3),
        \+((L3=[A|_],append(_,[A|_],[',','0','1','2','3','4','5','6','7','8','9']))),
        カンマ付き数値ならび(R2).

カンマ付き数値ならび([]) :- !.
カンマ付き数値ならび(L) :-
        length(L,Len),
        Len =< 3,
        すべて数字(L),!.
カンマ付き数値ならび([A,B,C,','|R]) :-
        すべて数字([A,B,C]),
        カンマ付き数値ならび(R).
カンマ付き数値ならび([A,B,','|R]) :-
        すべて数字([A,B]),
        カンマ付き数値ならび(R).
カンマ付き数値ならび([A,','|R]) :-
        すべて数字([A]),
        カンマ付き数値ならび(R).

すべて数字([]) :- !.
すべて数字([A|R]) :-
        append(_[A|_],['0','1','2','3','4','5','6','7','8','9']),
        すべて数字(R).