このディレクトリの索引

# Prologの宿題片付けます #68 # <問題> ある小さな農園で自家製ジュースを販売することになりました。 # バラ売りの単位として # 1.. 250cc # 2.. 500cc # 3.. 1L # そしてケース売りの単位として、 # 5.. 250ccが12個 # 6.. 1Lが12個 # 7.. 250ccが60個 # を用意することになりました。この単位をProlog述語 '荷姿' として定義しなさい。 :- op(200,xf,cc). :- op(200,xf,'L'). 荷姿(1,'250cc',250 cc). 荷姿(2,'500cc',500 cc). 荷姿(3,'1L',1 'L'). 荷姿(5,'12*250cc',12*250 cc). 荷姿(6,'12*1L',12*1 'L'). 荷姿(7,'60*250cc',60*250 cc). 荷姿単位変換(1,'L',0.25). 荷姿単位変換(2,'L',0.5). 荷姿単位変換(3,'L',1.0). 荷姿単位変換(5,'L',3.0). 荷姿単位変換(6,'L',12.0). 荷姿単位変換(7,'L',15.0). 荷姿単位変換(1,'cc',250). 荷姿単位変換(2,'cc',500). 荷姿単位変換(3,'cc',1000). 荷姿単位変換(5,'cc',3000). 荷姿単位変換(6,'cc',12000). 荷姿単位変換(7,'cc',15000). ケース売り(_荷姿ID) :- 荷姿(_荷姿ID,_,_*_ cc),!. ケース売り(_荷姿ID) :- 荷姿(_荷姿ID,_,_*_ 'L'),!. バラ売り(_荷姿ID) :- 荷姿(_荷姿ID,_,_量 cc),number(_量),!. バラ売り(_荷姿ID) :- 荷姿(_荷姿ID,_,_量 'L'),number(_量),!.