このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1267796762/806
#    
#  【 課題 】利息計算:年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後かを求めなさい.rを0.2から5.0まで0.2刻みで求めなさい.  
#  鶴亀算:頭の数と足の数を入力し,鶴と亀の数を出力しなさい.計算できない場合は,その旨メッセージを出力しなさい.  
#  【 形態 】1. Javaアプリケーション(main()で開始)  
#  【 GUI 】制限なし  
#  【 期限 】1/23  
#  【 Ver 】1.6.0_21  
#  【 補足 】プログラムに適切なコメントを入れてください.  
#   
#  よろしくお願いします  
# 
# 

鶴龜算(_頭の数,_足の数,_鶴何羽,_亀何匹) :-
        length(_頭_L,_頭の数),
        length(_足_L,_足の数),
        append(_鶴の足_L,_亀の足_L,_足_L),
        ならび割り算(_鶴の足_L,[_,_],_鶴の頭_L,[]),
        ならび割り算(_亀の足_L,[_,_,_,_],_亀の頭_L,[]),
        append(_鶴の頭_L,_亀の頭_L,_頭_L),
        length(_鶴の頭_L,_鶴何羽),
        length(_亀の頭_L,_亀何匹).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

鶴亀算(_頭の数,_足の数,_鶴何羽,_亀何匹) :-
        length(_頭の数ならび表現,_頭の数),
        length(_足の数ならび表現,_足の数),
        鶴龜算(_,_,_鶴の頭ならび表現,_亀の頭ならび表現,_頭の数ならび表現,_足の数ならび表現),
        length(_鶴の頭ならび表現,_鶴何羽),
        length(_亀の頭ならび表現,_亀何匹).

鶴龜算([],[],[],[],[],[]).
鶴龜算([_,_|_鶴の足],[],[_|_鶴の頭],[],[_|_頭合計],[_,_|_足の数]) :-
        鶴龜算(_鶴の足,[],_鶴の頭,[],_頭合計,_足の数).
鶴龜算([],[_,_,_,_|_亀の足],[],[_|_亀の頭],[_|_頭合計],[_,_,_,_|_足の数]) :-
        鶴龜算([],_亀の足,[],_亀の頭,_頭合計,_足の数).
鶴龜算([_,_|_鶴の足],[_,_,_,_|_亀の足],[_|_鶴の頭],[_|_亀の頭],[_,_|_頭合計],[_,_,_,_,_,_|_足の数]) :-
    鶴龜算(_鶴の足,_亀の足,_鶴の頭,_亀の頭,_頭合計,_足の数) .