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

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

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