omegatakuma/getint.hs

Created December 17, 2011 11:24

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/omegatakuma/1489986.js"></script>
Save omegatakuma/1489986 to your computer and use it in GitHub Desktop.

Download ZIP

getLineのString -> Intで出力する関数

Raw

	sum x = (read :: String -> Int) x
	getInt = do m <- getLine ; return (sum m)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment