【AtCoder ABC246A】Four Points（Common Lisp）

1. 問題

B – Four Points

2. コード

3つ組から「小数派」を取る関数 the-one を作ると、素直に解けました。

(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)

3つの点の読み取り方は、もう少しループやリストで簡潔に書けそう。