找到長寬比的最佳方法

Question

我正在用Haskell編寫一個簡單的OpenGL遊戲。每當用戶調整窗口大小時，我都會獲得它們的寬度和高度。我需要計算出適合窗戶的最大寬度和高度，同時保持1.6的W/H比率。

這就是我寫的。它可以工作，但我認爲這不是在Haskell中實現它的最好方式。有人建議一些替代方案：

keepRatio (w,h) | w > expectedWidth = (floor expectedWidth, h) 
       | otherwise   = (w, floor(fromIntegral w/fixedRatio)) 
       where expectedWidth = fromIntegral h * fixedRatio 

Answer 1

我會用一個後衛（條件）做比率與最接近的像素。

Answer 2

試試這個：

keepRatio (w,h) = min sizeByWidth sizeByHeight 
    where sizeByWidth = (w, (w * 5) `div` 8) 
     sizeByHeight = ((h*8) `div` 5, h) 

這是假設你只需要方面

fixedRatio = 1.6 

keepRatio (w,h) = head [(floor w',floor h') | w' <- [w, h*fixedRatio], h' <- [h, w/fixedRatio], w' <= w, h' <= h, w'/h' == fixedRatio ]