このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1276873238/710
#  # [1] 授業単元: Visual C# ソフトウェア開発  
#  # [2] 問題文(含コード&リンク):  
#  #指定した親フォルダ下のbin、objフォルダ内のDebug、Rleaseフォルダを全て削除するプログラムを作成 
# 
# 

'指定した親フォルダ下のbin、objフォルダ内のDebug、Rleaseフォルダを全て削除する'(_指定した親フォルダ) :-
        '指定した親フォルダ下のbin、objフォルダ内の'(_フォルダ_1),
        'Debug、Rleaseフォルダを'(_フォルダ_2),
        '全て削除する'(_指定した親フォルダ,_フォルダ_1,_フォルダ_2).
'指定した親フォルダ下のbin、objフォルダ内のDebug、Rleaseフォルダを全て削除する'(_).

'指定した親フォルダ下のbin、objフォルダ内の'(_フォルダ_1) :-
        member(_フォルダ_1,[bin,obj]).

'Debug、Rleaseフォルダを'(_フォルダ_2) :-
        member(_フォルダ_2,['Debug','Rlease']).

'全て削除する'(_指定した親フォルダ,_フォルダ_1,_フォルダ_2) :-
        atomic_list_concat([_指定した親フォルダ,/,_フォルダ_1,/,_フォルダ_2],_フォルダ),
        \+(exists_file(_フォルダ)),
        atomic_list_concat(['rm -R ',_フォルダ],S),
        shell(S),
        fail.