このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1322562648/330
#  [1] 授業単元:プログラミング演習 2 
#  [2] 問題文(含コード&リンク)        
#  テキストファイル bmi.txt を用意します 
#  17人の名前と彼らの身長と体重が記入されています. 
#  $ cat bmi.txt 
#  Ackley,D.H.   181.5  65.1 
#  Baker,J.E.    185.3  68.3 
#  Keller,K.S.   175.2  63.4 
#  Brent,R.P.    174.4  52.8 
#  Jong,K.A.     186.2  73.4 
#  Goldberg,D.E. 174.0  60.0 
#  Forrest,S.    175.5  60.6 
#  Fletcher,R.   180.3  73.8 
#  Powell,M.J.D. 170.1  55.9 
#  Smith,R.E.    178.7  69.6 
#  Richardson,J. 167.7  51.5 
#  Martin,F.G.   179.2  65.3 
#  Wilson,S.W.   185.8  84.4 
#  Lawler,E.L.   166.5  59.6 
#  Reed,J.       176.3  58.8 
#  Holland,J.H.  186.1  70.4 
#  Jones,W.T.    171.4  63.7 
#   
#  C プログラム delcomma.c を書き,以下の要領でコンパイルし,実行モジュール delcomma を生成します. 
#  delcomma は想像通り,delete comma の略です. 
#  標準入力から受け取った名前の中で,カンマ以下を削除して標準出力に表示するコマンドです. 
#   
#   

'標準入力から受け取った名前の中で,カンマ以下を削除して標準出力に表示する' :-
        at_end_of_stream(user_input),!.
'標準入力から受け取った名前の中で,カンマ以下を削除して標準出力に表示する' :-
        get_line(user_input,Line),
        split(Line,[','],[_名前|_]),
        writef(user_output,'%t\n',[_名前]),
        '標準入力から受け取った名前の中で,カンマ以下を削除して標準出力に表示する'.