このディレクトリの索引
#
#  文字列の先頭と末尾から順に対にして取り出す
# 
#  ならびの先頭と末尾から順に対にして取り出す
#


文字列の先頭と末尾から順に対にして取り出す(_文字列,C1,C2) :-
        sub_atom(_文字列,S,1,R,C1),
        sub_atom(_文字列,R,1,_,C2).

ならびの先頭と末尾から順に対にして取り出す(_ならび,C1,C2) :-
        append(L0,[C1|L1],_ならび),
        length(L0,Len),
        length(R,Len),
        append(_,[C2|R],_ならび).