このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1322562648/695
#  [1] 授業単元:C言語  
#  [2] 問題文(含コード&リンク):二次元配列"abcd" 
#                                               "EFG" の中に"E"があれば何行何列目にあるか、なければ「見つかりませんでした」と 
#                表示するプログラム  
#  

'二次元配列"abcd" "EFG" の中に"E"があれば何行何列目にあるか、なければ「見つかりませんでした」と表示する' :-
        append(L0,[L|_],["abcd","EFG"]),
        append(L1,"E",_,L),
        length([_|L0],_行),
        length([_|L1],_列),
        writef('%t行%t列目にあります\n',[_行,_列]),!.
'二次元配列"abcd" "EFG" の中に"E"があれば何行何列目にあるか、なければ「見つかりませんでした」と表示する' :-
        write('見つかりませんでした\n').