We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Algorithms
  3. Greedy
  4. Minimum Absolute Difference in an Array
  5. Discussions

Minimum Absolute Difference in an Array

  • jmcparland
     + 0 comments

    Haskell

    module Main where

import Data.List (sort)

solve :: [Integer] -> Integer
solve = minimum . map abs . (zipWith (-) <*> tail) . sort

main :: IO ()
main = getLine >> getLine >>= print . solve . map read . words