このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/456
#  ../test/read.cgi/tech/1291471791/400 IEだと文字化けしてたのではりなおします…(´・ω・`) 
#   
#  問題3:キーボードから入力させた長さの同じ文字列2つを1文字ずつ交互に1つの文字配列に格納し表示する 
# 
# 

'キーボードから入力させた長さの同じ文字列2つを1文字ずつ交互に1つの文字配列に格納し表示する' :-
        キーボードから入力させた長さの同じ文字列2つを(_文字列1,_文字列2),
        atom_chars(_文字列1,_文字ならび1),
        atom_chars(_文字列2,_文字ならび2),
        '1文字ずつ交互に1つの文字配列に格納し'(_文字ならび1,_文字ならび2,_交互に格納された文字ならび),
        表示する(_交互に格納された文字ならび).

キーボードから入力させた長さの同じ文字列2つを(_文字列1,_文字列2) :-
        write('文字列1を入力してください : '),
        get_line(_文字列1),
        長さの同じ文字列を(_長さ,_文字列2),!.

長さの同じ文字列を(_長さ,_文字列2) :-
        write_formatted('長さ%t文字の文字列2を入力してください : ',[_長さ]),
        get_line(_文字列2),
        キーボードから入力させた文字列の長さ診断(_長さ,_文字列2),!.
長さの同じ文字列を(_長さ,_文字列2) :- 長さの同じ文字列を(_長さ,_文字列2).

キーボードから入力させた文字列の長さ診断(_長さ,_文字列2) :-
        length(_文字列2,_長さ),!.
キーボードから入力させた文字列の長さ診断(_長さ,_文字列2) :-
        length(_文字列2,_長さ2),
        write_formatted('入力された文字列は長さ %t ありました。要求された長さの文字列を再入力してください : '),
        fail.

'1文字ずつ交互に1つの文字配列に格納し'([],[],[]) :- !.
'1文字ずつ交互に1つの文字配列に格納し'([_文字1|R1],[_文字2|R2],[_文字1,_文字2|R3]) :-
        '1文字ずつ交互に1つの文字配列に格納し'(R1,R2,R3).

表示する(_交互に格納された文字ならび) :-
        atom_chars(_交互に格納された文字列,_交互に格納された文字ならび),
        write_formatted('%t\n',_交互に格納された文字列).