-- http://www.codewars.com/kata/54c27a33fb7da0db0100040e
module Codewars.Kata.Square where

import Control.Arrow

isSquare :: Integral n => n -> Bool
isSquare = uncurry (==) . ((^2) . round . sqrt . fromIntegral &&& id)