このディレクトリの索引
#  
#  値の決まらない6×6ビンゴの表を作成する
#  
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


'値の決まらない6×6ビンゴの表を作成する'(_ビンゴの表) :-
        findall(_6要素の変数リスト,(
                    between(1,6,_),
                    length(_6要素の変数リスト,6)),
                _ビンゴの表).


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


'値の決まらない6×6ビンゴの表を作成する'(_ビンゴの表) :-
        length(_ビンゴの表,6),
        '値の決まらない6×6ビンゴの表'(_ビンゴの表).

'値の決まらない6×6ビンゴの表'([]).
'値の決まらない6×6ビンゴの表'([_6要素の変数リスト|R]) :-
        length(_6要素の変数リスト,6),
        '値の決まらない6×6ビンゴの表'(R).


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


'値の決まらない6×6ビンゴの表を作成する'(_ビンゴの表) :-
        '値の決まらない6×6ビンゴの表を作成する'(6,_ビンゴの表).

'値の決まらない6×6ビンゴの表を作成する'(0,[]) :- !.
'値の決まらない6×6ビンゴの表を作成する'(N,[_6要素の変数リスト|R]) :-
        length(_6要素の変数リスト,6),
        N_1 is N - 1,
        '値の決まらない6×6ビンゴの表を作成する'(N_1,R).


%%%%%%%%%%%%%%%% length/2 を使用しないと %%%%%%%%%%%%%%%%%%%%%


'値の決まらない6×6ビンゴの表を作成する'(_ビンゴの表) :-
        '値の決まらない6×6ビンゴの表を作成する'(6,_ビンゴの表).

'値の決まらない6×6ビンゴの表を作成する'(0,[]) :- !.
'値の決まらない6×6ビンゴの表を作成する'(N,[_6要素の変数リスト|R]) :-
        '6要素の変数リストを生成する'(6,_6要素の変数リスト),
        N_1 is N - 1,
        '値の決まらない6×6ビンゴの表を作成する'(N_1,R).

'6要素の変数リストを生成する'(0,[]).
'6要素の変数リストを生成する'(N,[_|R]) :-
        N_1 is N - 1,
        '6要素の変数リストを生成する'(N_1,[_|R]).


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%