Skip to content

Instantly share code, notes, and snippets.

@AgrYpn1a

AgrYpn1a/matching.hs

Created April 13, 2024 17:42
Show Gist options
  • Save AgrYpn1a/09afb0969018beb05eaa15a56fb8b038 to your computer and use it in GitHub Desktop.
Save AgrYpn1a/09afb0969018beb05eaa15a56fb8b038 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
matching.hs
densityTell :: String -> String
densityTell input
| Just density <- readMaybe input, density < 1.2 = "Wow! You're going for a ride in the sky!"
| Just density <- readMaybe input, density <= 1000.0 = "Have fun swimming, but watch out for sharks!"
| Nothing <- readMaybe input :: (RealFloat a => Maybe a) = "You know I need a density, right?"
| otherwise = "If it's sink or swim, you're going to sink.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment