Skip to content

Instantly share code, notes, and snippets.

@Nucleareal
Created July 25, 2014 08:37
Show Gist options
  • Save Nucleareal/34a86a53a26bcd7f8c0f to your computer and use it in GitHub Desktop.
Save Nucleareal/34a86a53a26bcd7f8c0f to your computer and use it in GitHub Desktop.
ゾロ目判定
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