このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1354070278/859
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク):http://ime.nu/kie.nu/Hag 
#  ファイルの内容を行番号付きで出力するプログラムを作成せよ
#  

ファイルの内容を行番号付きで出力するプログラムを作成せよ(_ファイル名) :-
        get_lines(_ファイル名,Lines),
        append(L0,[_行|R],Lines),
        length([_|L0],_行番号),
        writef('%t %t\n',[_行番号,_行]),
        R = [].