【AtCoder ABC246A】Four Points

• B – Four Points

(defun the-one (a b c)
  (cond ((= a b) c)
	((= a c) b)
	((= b c) a)
	(t nil)))

(defun main ()
  (let* ((x1 (read))
	 (y1 (read))
	 (x2 (read))
	 (y2 (read))
	 (x3 (read))
	 (y3 (read)))
    (princ (the-one x1 x2 x3))
    (princ #\space)
    (princ (the-one y1 y2 y3))))

#-swank(main)

Code language: Lisp (lisp)