Skip to content

Instantly share code, notes, and snippets.

@Lysxia

Lysxia/foo.hs

Created March 6, 2019 18:35
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save Lysxia/68c9ccf7e9465e91a1e3299a9740fa67 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save Lysxia/68c9ccf7e9465e91a1e3299a9740fa67 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.hs
efactor' :: Integer -> Float -> Float
efactor' x y
| ef < 1.3 = 1.3
| ef > 2.5 = 2.5
| otherwise = ef
where ef = y - 0.8 + 0.28 * q - 0.02 * q * q
q = fromIntegral x :: Float
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment