?- 'a##'. seikihyogen8-821#
このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/821
#  aの4回以上8回以下の繰り返し「 ^a{4,8}$ 」 
#  ではなくて、 
#  「aの4回または8回の繰り返し」 
#  を ^(a{4}|a{8})$ のように「a」を2回使用せずに、「a」を1回だけ使用して指定する方法を教えてください。 
# 
# 

'aの4回または8回の繰り返し'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,L1,L2,L3),
        \+(last(L1,'a')),
        \+(L3=[a|_]),
        'aの4回または8回繰り返し'(L2).

'aの4回または8回の繰り返し'([a,a,a,a,a,a,a,a]).
'aの4回または8回の繰り返し'([a,a,a,a]).