# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1576879943 18000
# Node ID dbd94aef5f92d0c4243afd145e8963998a780a47
# Parent  049e0d632763ede58053bbaad3838cd89c59ae44
SETO

diff -r 049e0d632763 -r dbd94aef5f92 src/problems/seto.lisp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/problems/seto.lisp	Fri Dec 20 17:12:23 2019 -0500
@@ -0,0 +1,42 @@
+(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)