- プログラミングのお題スレ Part4
786 ：デフォルトの名無しさん[sage]：2014/08/18(月) 13:23:36.09 ID:RJoulXY0 - >>776 Prolog 順序が気に入らない。それと、込みの 消費税込みの商品の価格という仕様に存在しない語。
'百円ショップで買い物をして支払いを一万円札だけでおつりなしで
済ませるには最低いくつの商品を買えばよいか。すべての商品は百円で
消費税は8%とする。'(_いくつ) :-
いくつ買えばよいか(_いくつ),
'百円ショップ(すべての商品は百円で消費税は8%とする。)で買い物をして支払いを'(_いくつ,_百円ショップで買い物をして支払いを),
'一万円札だけでおつりなしで済ませる'(_百円ショップで買い物をして支払いを),!.
いくつ買えばよいか(_いくつ) :-
nth1(_いくつ,_,_).
'百円ショップ(すべての商品は百円で消費税は 8%とする。)で買い物をして支払いを'(_いくつ,_百円ショップで買い物をして支払いを) :-
'すべての商品は百円で消費税は8%とする'(_消費税込みの商品の価格),
__百円ショップで買い物をして支払いを is _いくつ * _消費税込みの商品の価格.
'すべての商品は百円で消費税は8%とする'(_消費税込みの商品の価格) :-
_消費税込みの商品の価格 is 100 * (100 + 8) / 100.
'一万円札だけでおつりなしで済ませる'(_百円ショップで買い物をして支払いを) :-
0 is _百円ショップで買い物をして支払いを mod 10000.
|