このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1322562648/703
#  [1] 授業単元:C言語 
#  [2] 問題文:入力したxとyを交互に読み取り、zに出力するプログラムを作成せよ 
#  例 
#  x=いはほとりる 
#  y=ろにへちぬを 
#  z=いろはにほへとちりぬるを 
#  

'入力したxとyを交互に読み取り、zに出力する'(_z) :-
        write('xを入力して下さい : '),
        get_line(_x),
        write('yを入力して下さい : '),
        get_line(_y),
        'xとyを交互に読み取り、zに出力する'(_x,_y,_z).

'xとyを交互に読み取り、zに出力する'(_x,_y,_z) :-
        'xとyを交互に読み取り'(_x,_y,A,B,_x_2,_y_2),
        'xとyを交互に読み取り、zに出力する'(_x_2,_y_2,_z_2),
        concat_atom([A,B,_z_2],_z).
'xとyを交互に読み取り、zに出力する'(_x,_y,_z) :-
        atom_concat(_x,_y,_z).

'xとyを交互に読み取り'(_x,_y,A,B,_x_2,_y_2) :-
        sub_atom(_x,0,1,R1,A),
        sub_atom(_y,0,1,R2,B),
        sub_atom(_x,1,R1,0,_x_2),
        sub_atom(_y,1,R2,0,_y_2).