このディレクトリの索引

九蓮宝燈(_牌ならび) :-
        すべてが筒か索か萬(_牌ならび),
        '一から九までの牌が揃っている'(_牌ならび).

すべてが筒か索か萬(_牌ならび) :-
        すべてが筒(_牌ならび),!.
すべてが筒か索か萬(_牌ならび) :-
        すべてが索(_牌ならび),!.
すべてが筒か索か萬(_牌ならび) :-
        すべてが萬(_牌ならび),!.

すべてが筒([]) :- !.
すべてが筒([_牌|R]) :-
        sub_atom(_牌,1,1,0,筒),
        すべてが筒(R).
すべてが索([]) :- !.
すべてが索([_牌|R]) :-
        sub_atom(_牌,1,1,0,索),
        すべてが索(R).
すべてが萬([]) :- !.
すべてが萬([_牌|R]) :-
        sub_atom(_牌,1,1,0,筒),
        すべてが萬(R).

'一から九までの牌が揃っている'(_牌ならび) :-
        '一から九までの牌が揃っている'([一,ニ,三,四,五,六,七,八,九],_牌ならび).
'一から九までの牌が揃っている'([],_).
'一から九までの牌が揃っている'([_漢数字|R],_牌ならび) :-
        member(_牌,_牌ならび),
        sub_atom(_牌,0,1,1,_漢数字),
        '一から九までの牌が揃っている'(R,_牌ならび).