このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1267796762/657
#  【 課題 】
#  (4)配列を使って、n番目までのフィボナッチ数列を表示するプログラム。 
#  最大何番目の値が求められるか確かめること。 
#   
#  【 形態 】http://ime.nu/www.javadrive.jp/install/jdk/で設定したのですが1でしょうか…  
#  【 期限 】12月16日です  
#  【 Ver  】1.6.0_22  
#  【 補足 】ぎりぎりで丸投げですがよろしくお願いします! 
# 
# 

'n番目までのフィボナッチ数列を表示する'(N) :-
        length(L,N),
        n番目までのフィボナッチ数列(L),
        write_formatted('%t\n',[L]).

n番目までのフィボナッチ数列([1]) :- !.
n番目までのフィボナッチ数列([1,1]) :- !.
n番目までのフィボナッチ数列([1,1|R]) :-
        n番目までのフィボナッチ数列の二([1,1|R]).

n番目までのフィボナッチ数列の二([A,B,C]) :-
        C is A + B,!.
n番目までのフィボナッチ数列の二([A,B,C|R]) :-
        C is A + B,
        n番目までのフィボナッチ数列の二([B,C|R]),!.