Skip to content

Instantly share code, notes, and snippets.

@rightfold

rightfold/a.hs

Last active August 29, 2015 13:59
Show Gist options
  • Save rightfold/10666280 to your computer and use it in GitHub Desktop.
Save rightfold/10666280 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
a.hs
readInput :: Int -> IO (Int, Paint, Ring)
readInput i = do
ln <- getLine
let ls = split " " ln
r = ((read $ head ls) :: Double)
t = ((read $ last ls) :: Double)
return (i, Paint t, Ring (r + 1) 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment