このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1359210850/199
#  テキストで 
#  11111 
#  22222 
#  33333 
#  44444 
#  55555 
#   
#  というのを 
#   
#  12345 
#  12345 
#  12345 
#  12345 
#  12345 
#   
#  という風に90度変更したようにする方法を教えてください 
# 
# 

'テキストで
11111
22222
33333
44444
55555

というのを

12345 
12345
12345
12345
12345

という風に90度変更したようにする方法を教えてください' :-
        'テキストで
11111
22222
33333
44444
55555

というのを'(LL1),
        '12345 
12345
12345
12345
12345

という風に90度変更する'(LL1,_転置された文字列).


'テキストで
11111
22222
33333
44444
55555

というのを'(LL) :-
        split('11111
22222
33333
44444
55555',['\n'],L1),
        findall(L,(
                    member(_文字列,L1),
                    atom_chars(_文字列,L)),
               LL).
                    
'12345 
12345
12345
12345
12345

という風に90度変更する'(LL1,_転置された文字列) :-
        転置(LL1,LL2),
        findall(S,(
                    member(L,LL2),
                    atomic_list_concat(L,S)),
               L4),
        atomic_list_concat(L4,'\n',_転置された文字列).