Haskell - Algoritmayı tamamlamak için daha etkili bir yol?

Question

Toplam dakika sayısını temsil eden negatif olmayan bir Int değeri alan ve bunun karşılık geldiği (gün, saat, dakika) bir üçlü döndüren bir algoritma oluşturdum. programlamanın daha basit bir yolu bu fonksiyon yoktur, sadece temel Haskell işlemleri (vb korumalar, div'ler, modlar) kullanarak

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) 

: Burada

benim kodudur?

DÜZENLEME:

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

ben Haskell bilmeyen bu

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

Answer 2

Sen

kullanabilirsiniz: qoutRem çözümü kadar basit değil, ben bunu yayınlamak düşündüm ederken, bu kod daha basit hale getirmek için altındaki bir öneriye kullandık

Geri kalanını doğrudan almak için

.

Ve bir alt ifadeyi hesaplamak için let or where'u kullanabilirsiniz. Bence