Nucleareal/gist:34a86a53a26bcd7f8c0f

Created July 25, 2014 08:37

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/Nucleareal/34a86a53a26bcd7f8c0f.js"></script>
Save Nucleareal/34a86a53a26bcd7f8c0f to your computer and use it in GitHub Desktop.

Download ZIP

ゾロ目判定

Raw

gistfile1.txt


	isZoro :: Integer -> Bool
	isZoro x = and $ map (== s) p where (s:p) = show x

	main = do
	x <- readLn
	putStrLn . show $ isZoro x

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