このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294836668/250
#  文字列のリストlistがあって 
#  for x in list: 
#  このfor文の中で、今あいてにしてる文字xの隣の文字にアクセスするにはどうすればよい? 
#  for i in len(list): 
#  x = list[i] 
#  とかで回せばできそうですが、それ以外には・・・? 
# 

'今あいてにしてる文字xの隣の文字にアクセスするにはどうすればよい?'(_文字ならび,_前の文字,_今あいてにしてる文字,_後の文字) :-
        append(L0,[_今あいてにしている文字|R1],_文字ならび),
        前の文字(L0,_前の文字),
        後の文字(R1,_後の文字).

前の文字(L0,_前の文字) :-
        last(L0,_前の文字),!.
前の文字(L0,'').

後の文字(R1,_後の文字) :-
        R1 = [_後の文字|_],!.
後の文字(_,'').