【もげぞうβ】atcoder beginner contest002をやる

PeerCast プログラミング配信 Advent Calendar 2018 12/13

はい、もげぞうβです。
atcoder beginner contest002をやりました。

• A問題

(defun abc002a ()
  (let ((x (read))
	    (y (read)))
    (if (>= x y)
	    (format t "~d~%" x)
	    (format t "~d~%" y))))

• B問題

(defun abc002b ()
  (let ((w (read-line)))
    (loop for i across "aiueo"
	      do (setf w (remove i w))
    (format t "~a~%" w)))

• C問題

(defun abc002c ()
  (let ((a (read)) (b (read)) (c (read))
	    (d (read)) (e (read)) (f (read)))
    (format t "~d~%" (/ (abs (- (* (- c a) (- f b)) (* (- e a) (- d b)))) 2.0))))

• D問題
  時間切れ