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

'指定した親フォルダ下のbin、objフォルダ内のDebug、Rleaseフォルダを全て削除する'(_指定した親フォルダ) :-
        append(_,[_フォルダ_1|R],[bin,obj]),
        member(_フォルダ_2,['Debug','Rlease']),
        atomic_list_concat(['rm -R ',_指定した親フォルダ,/,_フォルダ_1,/,_フォルダ_2],S),
        shell(S),
        R = [].