このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/83
#  [1] 授業単元: Cプログラム応用A 
#  [2] 問題文(含コード&リンク): 
#  文字列操作の標準ライブラリ関数を使用し、指定したファイルの中で、辞書列で最初に出てくる単語と最後に出てくる単語、さらに最も長い単語をを見つけ表示せよ。 
#  ただし、同じ長さの単語がある場合最初に見つけた一つでいい。 
#   
#  ここでの単語とは、スペースや改行、タブで区切られた文字列のことである。 
#  ただし、単語の長さは100文字以内と考えていい。 
#   

指定したファイルの中で、辞書列で最初に出てくる単語と最後に出てくる単語、さらに最も長い単語をを見つけ表示する(_ファイル,_最初の単語,_最後の単語,_最もながい単語) :-
  get_lines(_ファイル,Lines),
  concat_atom(Lines,S),
  split(S,[' ','\t','\n'],_単語ならび),
  sort(_単語ならび,_整列された単語ならび),
  append([_最初に出てくる単語|_],[_最後に出てくる単語],_整列された単語ならび),
  findmax(_長さ,(member(_単語,_単語ならび),sub_atom(_単語,_,_長さ,_,_単語)),_最もながい長さ).