このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1296387672/349
#  [1] 授業単元: データの保存と表示 
#  [2] 問題文: http://ime.nu/codepad.org/2F3xiVeR 
#  ↑で読み込むファイルに整数がいくつか表示されているので、それらの合計値とデータの中の1の個数を求める処理を追加する 
#  

'読み込むファイルに整数がいくつか表示されているので、それらの合計値とデータの中の1の個数を求める'(_ファイル,_合計値,_1の個数) :-
        get_chars(_ファイル,Chars),
        concat_atom(Chars,S),
        split(S,[' ','\n','\t'],L),
        sum(L,_合計値),
        count(append(_,[1|_],L),_1の個数).