import Data.List
main = interact $ show . minimum . (\l->zipWith (-) (tail l) l::[Int]) . sort . map read . tail . words