このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/768
#  数字が並んだテキストファイルからいくつかの数字だけを取り出して 
#  表示したいです. 
#  例:hoge.txt 
#  78 3 44 89 
#  22 31 44 88 99 53 
#  3 4 7 9 9 7 6 
#  例えば上記のテキストデータですと, 
#  各行の最初の2つの数字以降の数字を取り出して 
#  表示したいです. 
#  なお,読み込むテキストデータは行も列も不定になっています. 
#  上記のテキストデータは1行目は4列ですが,他の行は4列とは限りません. 
#  なるべく簡単な関数で書けるとありがたいです. 
#  環境はvisual studio2010で書いてます. 
#   
#  初心者ですみません.よろしくお願いします. 
# 

'数値が並んだテキストファイルからいくつかの数値だけを削り残り文字列を取り出して表示する。各行の最初の2つの数値以降の文字列を表示したい'(_テキストファイル) :-
        数値が並んだテキストファイルから(_テキストファイル,Lines),
        各行の最初の2つの数値以降の文字列を(Lines,Line),
        表示したい(Line,_残り行ならび),
        _残り行ならび = [].

数値が並んだテキストファイルから(_テキストファイル,Lines) :-
        get_lines(_テキストファイル,Lines).

各行の最初の2つの数値以降の文字列を取り出して(Lines,Line,_残り行ならび) :-
        append(_,[Line_1|_残り行ならび],Lines),
        最初の2つの数値以降の文字列を取り出して(Line_1,Line).

最初の2つの数値以降の数値を取り出して(_文字列,_残り文字列) :-
        最初の数値を除く残り文字列(_文字列,_残り文字列_1),
        最初の数値を除く残り文字列(_残り文字列_1,_残り文字列),!.

最初の数値を除く残り文字列(_文字列,_残り文字列) :-
        sub_atom(_文字列,_,_,_,S1,_残り文字列,S3,L1,L2,L3),
        すべて数字(L2),
        \+((sub_atom(S3,0,1,_,A),数字(A))),!.

数字(A) :-
        A @>= '0',
        A @=< '9'.

すべて数字([]).
すべて数字([A|R]) :-
        数字(A),
        すべて数字(R).

表示したい(Line) :-
        writef('%t\n',[Line]).