このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/343
#  [1] 授業単元:プログラミング  
#  [2] 問題文(含コード&リンク): 
#  ピリオドの後に拡張子が付いているファイル名file.docが 与えられたとき, 
#  拡張子の無いファイル名部分(file)と, 拡張子(doc)に分け, 
#  文字列の配列 fname[][]に代入するプログラムを 作成しなさい. 
#  結果も表示すること. 
#  ただし、文字列のループ文は文字列の長さを使わないで作り、  
#  ポインタ、無限ループなどは使用してはいけない. 
#  

'ピリオドの後に拡張子が付いているファイル名が与えられたとき,拡張子の無いファイル名部分と, 拡張子に分ける'(_ピリオドの後に拡張子が付いているファイル名,_拡張子の無いファイル名部分,_拡張子) :-
        split(_ピリオドの後に拡張子が付いているファイル名,['.'],L),
        append(L1,[_拡張子],L),
        atomic_list_concat(L1,'.',_拡張子の無いファイル名部分).


%  split/3