このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/918
#  [1] 授業単元:プログラミング 
#  [2] 問題文: 
#    5*5の' 'と'#'の2文字から構成される二次元配列のtxtファイルを読み込み、 
#     
#  

'5*5の'' ''と''#''の2文字から構成される二次元配列のtxtファイルを読み込み、''#''を1,'' ''を0と表示させる'(_ファイル名) :-
        '5*5の" "と"#"の2文字から構成される二次元配列のtxtファイルを読み込み'(_ファイル名,LL),
        '"#"を1," "を0と表示させる'(LL).

'''#''を1,'' ''を0と表示させる'(LL) :-
        append(_,[L|R],LL),
        append(_,[A|R1],L),
        '#か空白か'(N,A),
        write_formatted('%t ',[N]),
        R1 = [],
        write('\n'),
        R = [],!.
        
        
'5*5の'' ''と''#''の2文字から構成される二次元配列のtxtファイルを読み込み'(_ファイル名,LL) :-
        open(_ファイ名,read,Instream),
        read(Instream,LL),
        close(Instream),!.

'二次元配列textファイルの生成'(_ファイル名) :-
        lenth(LL,5),
        findall(L,(
                    length(L,5),
                    append(_,[A|R],L),
                    Mod is random mod 2,
                    '#か空白か'(Mod,A)),
                LL),
        open(_ファイル,write,Outstream),
        write_formatted(Outstream,'%q.\n',[LL]),
        close(Outstream),!.

'#か空白か'(1,'#').
'#か空白か'(0,' ').