このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/621
#  3) 配列を利用して、23番目までのフィボナッチ数列を画面に整列させた状態で表示させなさい。 
#  1,1,2,3,5,8,13,21,34,…  
#   [3.1] Windows7 
#   [3.3] C言語 
#  [4] 木曜19時まで 
#  [5] 配列まで  
#  わかる方どうかよろしくお願いします。 
# 

'23番目までのフィボナッチ数列を画面に整列させた状態で表示させる' :-
        フィボナッチ数列(23,L),
        concat_atom(L,',',S),
        writef('%t\n',[S]).        

フィボナッチ数列(N,L) :-
        フィボナッチ数列(0,N,[0],L).

フィボナッチ数列(Max,Max,L1,L) :-
        reverse(L1,L),!.
フィボナッチ数列(0,Max,L1,L) :-
        フィボナッチ数列(1,Max,[1|L1],L),!.
フィボナッチ数列(1,Max,L1,L) :-
        フィボナッチ数列(2,Max,[1|L1],L),!.
フィボナッチ数列(N,Max,[A,B|R1],L) :-
        N2 is N + 1,
        C is A + B,
        フィボナッチ数列(N2,Max,[C,A,B|R1],L).