(unless (member :child-sbcl *features*)
  #-swank (quit
            :unix-status
            (process-exit-code
              (run-program *runtime-pathname*
                           `("--control-stack-size" "128MB"
                             "--noinform"
                             "--disable-ldb"
                             "--lose-on-corruption"
                             "--end-runtime-options"
                             "--eval" "(push :child-sbcl *features*)"
                             "--script" ,(namestring *load-pathname*))
                           :output t :error t :input t))))

(eval-when (:compile-toplevel)
  #-swank (proclaim '(optimize (speed 3) (debug 0) (safety 0))))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (labels ((array-reference-reader (stream c n)
             "Reader macro #&(array index) => (aref array index)"
             (declare (ignore c n))
             (let ((list (read stream)))
               `(aref ,(car list) ,@(cdr list)))))
    (setf *readtable* (copy-readtable))
    (set-dispatch-macro-character #\# #\& #'array-reference-reader)))

(defconstant mod-number 1000000007)

(defmacro let-if (var cond tbody &optional fbody)
  `(let ((,var ,cond))
     (if ,var
         ,tbody
         ,fbody)))

(defmacro named-let (name binds &body body)
  (let ((params (mapcar #'car binds))
        (args (mapcar #'cadr binds)))
    `(labels ((,name (,@params)
                ,@body))
       (,name ,@args))))

(defun unfold (p f g seed &optional (tail-gen (lambda () '())))
  (if (p seed)
      (tail-gen seed)
      (cons (f seed)
            (unfold p f g (g seed) tail-gen))))

(defun iota (c &optional (s 0) (step 1) (acc nil))
  (if (zerop c)
      (nreverse acc)
      (iota (1- c) (+ s step) step (cons s acc))))

(defun sum (list &optional (init 0))
  (reduce #'+ list :initial-value init))

(defun chomp (str)
  (string-right-trim '(#\Return #\Linefeed) str))

(defun diff (a b)
  (abs (- a b)))

(defun read-integer (&optional (in *standard-input*))
  (declare (inline read-byte))
  (labels ((number-char-p (b)
             (<= #.(char-code #\0) b #.(char-code #\9)))
           (minus-char-p (b)
             (= b #.(char-code #\-)))
           (to-number (b)
             (- b #.(char-code #\0))))
    (declare (inline number-char-p minus-char-p to-number))
    (macrolet ((%read-byte ()
                 '(the (unsigned-byte 8)
                       #+swank (char-code (read-char in nil #\Nul))
                       #-swank (read-byte in nil 0))))
      (let* ((minus-p nil)
             (x (loop for b = (%read-byte)
                      if (number-char-p b)
                        return (to-number b)
                        end
                      if (minus-char-p b)
                        do (setf minus-p t))))
        (declare (boolean minus-p) (fixnum x))
        (the fixnum (loop for b = (%read-byte)
                          and y = x then (+ (* y 10) (to-number b))
                          unless (number-char-p b)
                            return (funcall (if minus-p #'- #'+) y)))))))

(defun split (x str &optional (acc nil))
  (let ((pos (search x str))
        (size (length x)))
    (if pos
        (split x (subseq str (+ pos size)) (cons (subseq str 0 pos) acc))
        (nreverse (cons str acc)))))

(defmacro minf (field &rest x)
  `(setf ,field (min ,field ,@x)))

(defmacro maxf (field &rest x)
  `(setf ,field (max ,field ,@x)))

(defmacro debug-print (x)
  `(let ((y ,x))
    (format t "~A: ~A~%" ',x y)
    y))

(eval-when (:compile-toplevel)
  (defun definput-helper-integer (bind)
    (let ((var (second bind)))
      `(defparameter ,var (read))))
  
  (defun definput-helper-string (bind))
  (defun set-read-to-array (type array dimensions)
    (let ((input (case (second type)
                   ('integer #'read)
                   ('string #'read-line)))
          (size (array-total-size array)))
      (dotimes (i size)
        (setf (row-major-aref array i) (funcall input)))))
  
  (defun definput-helper-array (bind)
    (destructuring-bind (type var dimensions) bind
      (if (atom dimensions)
          (setf dimensions (list dimensions)))
      `(prog1
         (defparameter ,var (make-array (mapcar #'symbol-value ',dimensions)))
         (set-read-to-array ',type ,var ',dimensions))))
  
  (defun definput-helper-list (bind)
    (let ((type (second (first bind)))
          (var (second bind))
          (size (third bind)))
      `(defparameter ,var
                     (named-let rec ((i ,size)
                                     (acc nil))
                       (if (zerop i)
                           (nreverse acc)
                           (rec (1- i)
                                (cons (read) acc)))))))
  
  (defun definput-helper (bind)
    (let ((type (first bind)))
      (funcall (case type
                 ('integer #'definput-helper-integer)
                 ('string #'definput-helper-string)
                 (otherwise (case (car type)
                              ('array #'definput-helper-array)
                              ('list #'definput-helper-list))))
               bind))))

(defmacro definput (binds)
  (cons 'progn (mapcar #'definput-helper binds)))

(defmacro defdp (name args &body body)
  (let ((argc (length args))
        (key (gensym)))
    `(let ((dp (make-hash-table :test #'equal)))
       (defun ,name ,args
         (let ((,key ,@(if (= argc 1) args `((list ,@args)))))
           (let-if memo (gethash ,key dp)
                   memo
                   (setf (gethash ,key dp)
                         (progn ,@body))))))))

;;; ここまで

(definput
  ((integer n)
   ((list integer) a n)))

(defparameter a-max (apply #'max a))

(defun solve (x)
  (let ((center (floor a-max 2)))
    (if (evenp a-max)
        (diff center x)
        (min (diff center x) (diff (1+ center) x)))))

(format t "~A ~A~%" a-max (first (reduce
                                   (lambda (acc x)
                                     (let ((d (solve x)))
                                       (cond ((= x a-max) acc)
                                             ((< d (second acc)) (list x d))
                                             (t acc))))
                                   a
                                   :initial-value `(0 ,most-positive-fixnum))))



Measured memory_bytes: 80616