このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1258320456/157
#  【 課題 】 
#  あるディレクトリに存在するすべてのファイルについて 
#  各ファイルの先頭一文字をディレクトリ名としてサブディレクトリを作成し 
#  そのサブディレクトリへそのファイルを移動する 
#  (既にサブディレクトリが存在する場合はファイルの移動のみ) 
#  という操作を行うpythonで記述実行し動作を確認しなさい 
#   
#  【 期限 】11月25日13:00まで 
#  【 Ver  】2.5以上 2.6以下 
#  【 補足 】済みません丸投げします 
# 
# 

'あるディレクトリに存在するすべてのファイルについて各ファイルの先頭一文字をディレクトリ名としてサブディレクトリを作成しそのサブディレクトリへそのファイルを移動する'(_ディレクトリ) :-
        concat_atom(['ls -l ',_ディレクトリ],S),
        shs(S,_ディレクトリ詳細情報ならび),
        ディレクトリの生成(_ディレクトリ詳細情報ならび),
        ディレクトリへのファイルコピー(_ディレクトリ詳細情報ならび).

ディレクトリの生成(_ディレクトリ詳細情報ならび) :-
        append(_,[Line|R],_ディレクトリ詳細情報ならび),
        split(Line,[' '],[A|R1]),
        last(R1,F),
        ディレクトリの生成(A,F),
        R = [],!.

ディレクトリの生成(A,F) :-
        sub_atom(A,0,1,_,'-'),
        sub_atom(F,0,1,_,Dir),
        \+(exists(Dir,read)),
        concat_atom(['mkdir ',Dir],S),
        system(S),!.
ディレクトリの生成(_,_).

ディレクトリへのファイルコピー(_ディレクトリ詳細情報ならび) :-
        append(_,[Line|R],_ディレクトリ詳細情報ならび),
        split(Line,[' '],[A|R1]),
        last(R1,F),
        ディレクトリへファイルコピー(A,F),
        R = [],!.

ディレクトリへファイルコピー(A,F) :-
        sub_atom(A,0,1,_,'-'),
        sub_atom(F,0,1,_,Dir),
        concat_atom(['cp ',F,' ',Dir,'/',F],S),
        system(S),!.
ディレクトリへファイルコピー(_,_).