canBuy.hs

main = undefined

-- | 商品を買えるか調べる関数
--
-- 「所持金 (money)」と「商品の値段 (price)」を渡すと、
-- 購入可能なら True、購入不可能なら False を返す。
--
-- >>> canBuy 100 300
-- False
--
-- >>> canBuy 300 100
-- True
--
-- >>> canBuy 300 300
-- True
--
-- >>> canBuy 100000 83495
-- True
--
-- >>> canBuy 123456 999999
-- False
canBuy :: Int -> Int -> Bool
canBuy money price
  | money >= price = True
  | otherwise      = False