ハスケル - より効率的なアルゴリズムを完了する方法？

Question

合計の分数を表す負でないInt値をとり、これに対応する（日、時間、分）を与えるトリプルを返すアルゴリズムを作成しました。ここで

は私のコードです：

のみ基本的なHaskellの操作（警備員、divタグ、改造など）を使用して

calcdays :: Int -> Int 
calcdays x = x `div` (24*60) 

calchours :: Int -> Int 
calchours x = (x - ((calcdays x)*24*60)) `div` 60 

calcmins :: Int -> Int 
calcmins x = (x - ((calcdays x)*24*60) - ((calchours x)*60)) 

dayshoursmins :: Int -> (Int,Int,Int) 
dayshoursmins x = (calcdays x, calchours x, calcmins x) 

、プログラミングのより簡単な方法は、この機能がありますか？

EDIT：

calcdays :: Int -> Int 
calcdays x = x `div` (24*60) 

calchours :: Int -> Int 
calchours x = (x `mod` (24*60)) `div` 60 

calcmins :: Int -> Int 
calcmins x = (x `mod` (24*60)) `mod` 60 

dayshoursmins :: Int -> (Int,Int,Int) 
dayshoursmins x = (calcdays x, calchours x, calcmins x) 

Answer 1

私はこの

dayshoursmins x = (d,hr,mr) where 
(h,mr) = quotRem x 60 
(d,hr) = quotRem h 24 

Answer 2

あなたは

を使用することができます。qoutRemソリューションのように単純ではない、私はそれを投稿かもしれないと思っている間

私は、このコードを簡単にするために、次の提案を使用していました

a `mod` b 

残りを直接取得する。

let or whereを使用すると、部分式を計算できます。