このディレクトリの索引
#  
#  20×20のボックスの中からある文字列を取り出すプログラムを書いて!
#  

'20×20のボックスの中からある文字列を取り出す'(_20掛ける20のボックス,_行目,_列目,_ある文字列) :-
        '20×20のボックスの中から'(_20掛ける20のボックス),
        ある文字列を取り出す(_20掛ける20のボックス,_行目,_列目,_ある文字列).

'20×20のボックスの中から'(_20掛ける20のボックス) :-
        length(_20掛ける20のボックス,20),
        forall( member(_20のボックス,_20掛ける20のボックス),
                '20のボックス'(_20のボックス)).
               
'20のボックス'(_20のボックス) :-
        length(_20のボックス,20),
        forall( member(_ボックス,_20のボックス),
                ボックス(_ボックス)).

ボックス([_|_]) :- !.
ボックス([]).

ある文字列を取り出す(_20掛ける20のボックス,_行目,_列目,_ある文字列) :-
        nth1(_行目,_20のボックス,_20掛ける20のボックス),
        nth1(_列目,_20のホックス,_ボックス),
        member(_ある文字列,_ボックス).