compare-triplets.lisp

(defun comp (a b)
    (cond ((< a b) 'bob)
        ((> a b) 'alice)))

(defvar a (with-input-from-string (in (read-line))
              (loop for x = (read in nil nil) while x collect x)))

(defvar b (with-input-from-string (in (read-line))
              (loop for x = (read in nil nil) while x collect x)))

(defvar r (mapcar #'comp a b))

(defvar alice 0)
(defvar bob 0)

(mapcar #'(lambda (x)
                  (cond ((equal x 'alice) (incf alice))
                        ((equal x 'bob) (incf bob)))
                   ) r)                               

(format t "~S ~S" alice bob)