Meilleure façon de trouver le ratio d'aspect

Question

J'écris un simple jeu OpenGL avec Haskell. Chaque fois que l'utilisateur redimensionne la fenêtre, j'obtiens sa largeur et sa hauteur. J'ai besoin de calculer la plus grande largeur et la hauteur qui correspond à l'intérieur de leur fenêtre tout en maintenant le ratio W/H de 1,6.

C'est ce que j'ai écrit. Cela fonctionne mais je ne pense pas que ce soit la meilleure façon de le faire chez Haskell. Quelqu'un peut-il suggérer des alternatives:

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 ] 

Answer 1

que je le ferais avec un gardien (condition):

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

Answer 2

Essayez ceci:

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

Cela suppose que seul l'aspect besoin rapport au pixel le plus proche.