いろんな言語で宿題スレ 第三編
■ このスレッドは過去ログ倉庫に格納されています
0093デフォルトの名無しさん
2009/12/26(土) 07:07:39% Prolog
'30年以内に複利の残高は単利の残高を上回るか。'(_元金,_複利の利率,_単利の利率) :
findall(_残高1,残高(複利,30,_元金,_複利の利率,_,_残高1),L1),
findall(_残高1,残高(単利,30,_元金,_単利の利率,_,_残高2),L2),
行列の転置([L1,L2],L3),
member([A,B],L3),
A > B.
■ このスレッドは過去ログ倉庫に格納されています