-- http://www.codewars.com/kata/550498447451fbbd7600041c
module Codewars.Kata.Compare where

import Data.List
import Data.Function

comp :: [Integer] -> [Integer] -> Bool
comp as = ((==) `on` sort) (map (^2) as)