スタートHaskell 2 第2回目演習　うるう年

leap.hs

isLeap :: Int -> Bool
isLeap x
	| canBeDividedBy 4 && not (canBeDividedBy 100) = True
	| canBeDividedBy 400 = True
	| otherwise = False
	where
		canBeDividedBy y = x `mod` y == 0