Skip to content

Instantly share code, notes, and snippets.

@furu

furu/canBuy.hs

Created June 18, 2017 13:50
Show Gist options
  • Save furu/57e8abe905ef93bdedf5886f85c52a5d to your computer and use it in GitHub Desktop.
Save furu/57e8abe905ef93bdedf5886f85c52a5d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment