いろんな言語で宿題スレ第三編

いろんな言語で宿題ス ..

94:デフォルトの名無しさん
09/12/26 07:13:12
>>93 一ヶ所書き直し。さてどこでしょう？

>>90
% Prolog

'30年以内に複利の残高は単利の残高を上回るか。'(_元金,_複利の利率,_単利の利率) :-
　　findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
　　findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
　　行列の転置([L1,L2],L3),
　　member([A,B],L3),
　　A > B.

次ページ

続きを表示

1を表示