このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301553333/69
#  文字列を最初と最後から交互に入れ替える暗号プログラムを作ろうとしていますが上手く行きません 
#  例「hello」→「holel」 
#   
#  #include<stdio.h> 
#  #include<string.h> 
#   
#  int main(void){ 
#   char str[80];char str2[80]; 
#   int i,j,k=0; 
#   printf("文字列を入力してください"); 
#   gets(str); 
#   j=strlen(str); 
#   for(i=0;i<strlen(str);i++){ 
#    if(!i%2) 
#     str2[i]=str[k++]; 
#    else 
#     str2[i]=str[j--]; 
#   } 
#   printf(str2); 
#   
#   return 0; 
#  } 
# 
# 

文字列を最初と最後から交互に入れ替える :-
        get_line(_文字列),
        atom_chars(_文字列,Chars),
        ならびの最初と最後から交互に取り出す(Chars,L),
        atom_chars(_暗号文字列,L),
        writef('%t\n',[_暗号文字列]).

ならびの最初と最後から交互に取り出す([],[]) :- !.
ならびの最初と最後から交互に取り出す([A],[A]) :- !.
ならびの最初と最後から交互に取り出す(L,[A,B|R2]) :-
        append([A|R],[B],L),
        ならびの最初と最後から交互に取り出す(R,R2).