CodinGame - Horse Race

horse.hs

import System.IO
import Control.Monad
import Data.List

main = do
    hSetBuffering stdout NoBuffering -- DO NOT REMOVE

    count <- fmap read getLine
    strengths <- fmap sort (replicateM count (fmap read getLine))

    print $ minimum $ zipWith (-) (tail strengths) strengths