いろんな言語で宿題スレ 第三編
■ このスレッドは過去ログ倉庫に格納されています
0759デフォルトの名無しさん
2010/02/25(木) 21:27:28% Prolog 5/7 はうっかりミスということにして。bignumの必要あり。
'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(_分子,_分母) :-
'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(97,_分
子,_分母).
'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(97,97,99) :- !.
'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(N,_分子,_分母) :-
M is N + 2,
'1/3 + 3/5 + 7/9 + 9/11 + 11/13+..........+95/97 + 97/99を合計する'(M,_分子2,_分母2),
_分子1 is ( N * _分母2 + M * _分子2),
_分母1 is M * _分母2,
約分(_分子1,_分母1,_分子,_分母),!.
■ このスレッドは過去ログ倉庫に格納されています