このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1354070278/987
#  [1] プログラミング 
#  [2] 数字を収納する 
#  
#  Cでお願いします。コンソールです 
#  ある数字を一文字入力し、そしてenter。 
#  次に、その前に打った数だけランダムな数字を空白をはさんで打ち込む。そしてエンター 
#  
#  例 
#  6 (エンター 
#  4 23 1 4 5 3 (エンター 
#  
#  みたいなかんじです 
#  
#  そしてこれを X[i] にi=1から順に空白を飛ばして入れていくってかんじです。 
そんでX[1]=4 X[2]=23 ・・・  
#  みたいに入ればいいです 
#  文字列ではなく数字で収納したいです 
#  
#  お願いします 

'ある数字を一文字入力し、そしてenter。次に、その前に打った数だけランダムな数字を空白をはさんで打ち込む。そしてエンター'([N|_数値ならび]) :-
        整数を得る(N),
        findall(_数値,(
                    between(1,N,_),
                    '空白または改行が来るまでが数値だ'(_数値)),
                _数値ならび).

'空白または改行が来るまでが数値だ'(_数値) :-
        get_char(_文字),
        '空白または改行が来るまで'(_文字,_文字ならび),
        atomic_list_concat(文字ならび,_文字列),
        atom_number(_文字列,_数値).

'空白または改行が来るまで'(' ',[]) :- !.
'空白または改行が来るまで'('\n',[]) :- !.
'空白または改行が来るまで'(A,[A|R]) :-
        get_char(B),
        '空白または改行が来るまで'(B,R).