src/problems/seto.lisp @ 05bc7da3473f

Update README
author Steve Losh <steve@stevelosh.com>
date Sat, 18 Jan 2020 14:04:41 -0500
parents dbd94aef5f92
children 2d34585c5704
(in-package :rosalind)

(defparameter *input-seto*
  "10
{1, 2, 3, 4, 5}
{2, 8, 5, 10}")

(defparameter *output-seto*
  "{1, 2, 3, 4, 5, 8, 10}
{2, 5}
{1, 3, 4}
{8, 10}
{8, 9, 10, 6, 7}
{1, 3, 4, 6, 7, 9}")

(defun set-string (set)
  ;; Sort for consistent unit test output.
  (format nil "{~{~D~^, ~}}" (sort (copy-seq set) #'<)))

(defun parse-set (string)
  (mapcar #'parse-integer (ppcre:all-matches-as-strings "\\d+" string)))

(define-problem seto (data stream)
    *input-seto*
    *output-seto*
  (let ((u (alexandria:iota (read data) :start 1))
        (a (parse-set (read-line data)))
        (b (parse-set (read-line data))))
    (_ (list (union a b) ; to hell with it, we'll just use CL's built-in stuff
             (intersection a b)
             (set-difference a b)
             (set-difference b a)
             (set-difference u a)
             (set-difference u b))
      (mapcar #'set-string _)
      (str:join (string #\newline) _))))


#; Scratch --------------------------------------------------------------------

(problem-seto)
;; (solve sset)