このディレクトリの索引

#  twitter_by_@nooyosh_20111115_1
#  
#  カレントディレクトリ以下にあるすべてのPDFファイルのサイズを合計して表示
#  

'カレントディレクトリ以下にあるすべてのPDFファイルのサイズを合計して表示'(_合計サイズ) :-
        shs('ls -s *.pdf',L),
        findsum(_サイズ,(
                    append(_,[_行|_],L),
                    split(_行,[' '],[_サイズ|_])),
                _合計サイズ).