diff options
| -rw-r--r-- | challenge-127/tyler-wardhaugh/clojure/src/tw/weekly/c127/t1.clj | 8 | ||||
| -rw-r--r-- | challenge-127/tyler-wardhaugh/clojure/test/tw/weekly/c127_test.clj | 7 |
2 files changed, 10 insertions, 5 deletions
diff --git a/challenge-127/tyler-wardhaugh/clojure/src/tw/weekly/c127/t1.clj b/challenge-127/tyler-wardhaugh/clojure/src/tw/weekly/c127/t1.clj index 9e17ac2590..219c103b75 100644 --- a/challenge-127/tyler-wardhaugh/clojure/src/tw/weekly/c127/t1.clj +++ b/challenge-127/tyler-wardhaugh/clojure/src/tw/weekly/c127/t1.clj @@ -1,15 +1,19 @@ (ns tw.weekly.c127.t1 (:require [clojure.edn :as edn] - [clojure.pprint :refer [cl-format]])) + [clojure.set :as set])) ;;; ; Task description for TASK #1 › Disjoint Sets ;;; (def DEFAULT-INPUT ['(1, 2, 5, 3, 4) '(4, 6, 7, 8, 9)]) +(defn disjoint? + [s1 s2] + (empty? (set/intersection (set s1) (set s2)))) + (defn -main "Run Task 1 with a given input S1 and S2, defaulting to the first example from the task description." [& args] (let [[S1 S2] (or (some->> args (map edn/read-string)) DEFAULT-INPUT)] - )) + (println (if (disjoint? S1 S2) 1 0)))) diff --git a/challenge-127/tyler-wardhaugh/clojure/test/tw/weekly/c127_test.clj b/challenge-127/tyler-wardhaugh/clojure/test/tw/weekly/c127_test.clj index 13718f44c9..2148d02c3c 100644 --- a/challenge-127/tyler-wardhaugh/clojure/test/tw/weekly/c127_test.clj +++ b/challenge-127/tyler-wardhaugh/clojure/test/tw/weekly/c127_test.clj @@ -1,11 +1,12 @@ (ns tw.weekly.c127-test (:require [clojure.test :refer [deftest is testing]] - [tw.weekly.c127.t1 :refer []] - [tw.weekly.c127.t2 :refer []])) + [tw.weekly.c127.t1 :refer [disjoint?]] + #_[tw.weekly.c127.t2 :refer []])) (deftest task-1 (testing "Disjoint Sets" - )) + (is (false? (disjoint? '(1, 2, 5, 3, 4) '(4, 6, 7, 8, 9)))) + (is (true? (disjoint? '(1, 3, 5, 7, 9) '(0, 2, 4, 6, 8)))))) (deftest task-2 (testing "Task 2, Conflict Intervals" |