このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1340383120/71
#  数値比較を正規表現だけでやることになって、たった4桁なのに泣きそう。 
# 
# 

'数値比較を正規表現だけでやることになって、たった4桁なのに泣きそう。'(_4桁ブラス4桁の数字列,_診断) :-
        atom_chars(_4桁ブラス4桁の数字列,[A,B,C,D,E,F,G,H]),
        '診断: 4桁の数字ならび比較'([A,B,C,D],[E,F,G,H],_診断),!.

'診断: 4桁の数字ならび比較'(L,L,=) :- !.
'診断: 4桁の数字ならび比較'(L1,L2,<) :-
        L1 @< L2,!.
'診断: 4桁の数字ならび比較'(L1,L2,>) :-
        L1 @> L2,!.