このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1274998754/825
#  Aの状態がn回起きたらBを行えというプログラムを書きたいのですが 
#  どのような関数でどうやればいいか教えてください 
# 

'Aの状態がn回起きたらBを行えというプログラム'(_n) :-
        length(L,_n),
        Aの状態がn回起きる(L),
        B.

Aの状態がn回起きる([]) :- !.
Aの状態がn回起きる([_|R]) :-
        A,
        Aの状態がn回起きる(R),!.
Aの状態がn回起きる(L) :-
        Aの状態がn回起きる(L).