このディレクトリの索引

# # 20×20のボックスの中からある文字列を取り出すプログラムを書いて! # '20×20のボックスの中からある文字列を取り出す'(_20掛ける20のボックス,_行目,_列目,_ある文字列) :- '20×20のボックス'(_20掛ける20のボックス), nth1(_行目,_20のボックス,_20掛ける20のボックス), nth1(_列目,_20のホックス,[_ある文字列]). '20×20のボックス'(_20掛ける20のボックス) :- length(_20掛ける20のボックス,20), forall(member(_20のボックス,_20掛ける20のボックス),length(_20のボックス,20)).