このディレクトリの索引
#  出題場所
#  
#  ●Regular Expressionの使用環境 
#  Python3.3 
#  
#  ●検索か置換か? 
#  置換 
#  
#  ●説明 
#  均等割りにしているスペースを削除したい 
#  一文字ずつスペースが入っている文字のスペースを削除したい 
#  
#  ●対象データ 
#  あ い う え お 
#  かき くけ ここ 
#  
#  ●希望する結果 
#  あいうえお 
#  かき くけ ここ
#  

'一文字ずつスペースが入っている文字列のスペースを削除したい'(_文字列,_スペースを削除された文字列) :-
        atom_chars(_文字列,_文字ならび),
        '一文字ずつスペースが入っている文字ならびのスペースを削除したい'(_文字ならび,_スペースを削除された文字ならび),
        atom_chars(_スペースを削除された文字列,_スペースを削除された文字ならび).

'一文字ずつスペースが入っている文字ならびのスペースを削除したい'([_文字],[_文字]) :-
        \+(_文字=' ').
'一文字ずつスペースが入っている文字ならびのスペースを削除したい'([_文字,' '|R1],[_文字|R2]) :-
        '一文字ずつスペースが入っている文字ならびのスペースを削除したい'(R1,R2).