このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1357191974/756
#  お題:ジグザグに表示する。 
#  例 
#  123456789 
#   ↓ 
#  1 3 5 7 9 
#   2 4 6 8  
#   
#  The earth turns around the sun. 
#   ↓ 
#  T e e r h t r s a o n   h   u . 
#   h   a t   u n   r u d t e s n 
# 
# 

'ジグザグに表示する。'(_文字列) :-
        文字列をならびに変換する(_文字列,_文字ならび),
        ジグザグになるように空白を挿入する(_文字ならび,_空白を挿入された文字ならび),
        二行に分解して表示する(_空白を挿入された文字ならび).

文字列をならびに変換する(_文字列,_文字ならび) :-
        atom_chars(_文字列,_文字ならび).

ジグザグになるように空白を挿入する([],[]).
ジグザグになるように空白を挿入する([' '|R1],[' '|R2]) :-
        ジグザグになるように空白を挿入する(R1,R2),!.
ジグザグになるように空白を挿入する([A|R1],[A,' ',' '|R2]) :-
        ジグザグになるように空白を挿入する(R1,R2).

二行に分解して表示する(L) :-
        二つのならびに分解して(L,L1,L2),
        atom_chars(_第一行,L1),
        atom_chars(_第二行,L2),
        writef('%t\n%t\n',[_第一行,_第二行]).

二つのならびに分解して([],[],[]).
二つのならびに分解して([A],[A],[]).
二つのならびに分解して([A,B|R1],[A|R2],[B|R3]) :-
        二つのならびに分解して(R1,R2,R3).