diff options
9 files changed, 139 insertions, 1 deletions
diff --git a/challenge-086/tyler-wardhaugh/clojure/deps.edn b/challenge-086/tyler-wardhaugh/clojure/deps.edn index 62ba0cd3ca..18ea25ec63 100644 --- a/challenge-086/tyler-wardhaugh/clojure/deps.edn +++ b/challenge-086/tyler-wardhaugh/clojure/deps.edn @@ -1,5 +1,7 @@ {:paths ["src" "resources"] - :deps {org.clojure/clojure {:mvn/version "1.10.1"} } + :deps {org.clojure/clojure {:mvn/version "1.10.1"} + org.clojure/core.logic {:mvn/version "1.0.0"} + net.mikera/core.matrix {:mvn/version "0.62.0"}} :aliases {:test {:extra-paths ["test"] :extra-deps {org.clojure/test.check {:mvn/version "1.0.0"}}} diff --git a/challenge-086/tyler-wardhaugh/clojure/pom.xml b/challenge-086/tyler-wardhaugh/clojure/pom.xml index 05bb65ba38..cc507f3605 100644 --- a/challenge-086/tyler-wardhaugh/clojure/pom.xml +++ b/challenge-086/tyler-wardhaugh/clojure/pom.xml @@ -30,6 +30,16 @@ <artifactId>clojure</artifactId> <version>1.10.1</version> </dependency> + <dependency> + <groupId>org.clojure</groupId> + <artifactId>core.logic</artifactId> + <version>1.0.0</version> + </dependency> + <dependency> + <groupId>net.mikera</groupId> + <artifactId>core.matrix</artifactId> + <version>0.62.0</version> + </dependency> </dependencies> <build> <sourceDirectory>src</sourceDirectory> diff --git a/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-1 b/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-1 new file mode 100644 index 0000000000..686c091688 --- /dev/null +++ b/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-1 @@ -0,0 +1,9 @@ +[ _ _ _ 2 6 _ 7 _ 1 ] +[ 6 8 _ _ 7 _ _ 9 _ ] +[ 1 9 _ _ _ 4 5 _ _ ] +[ 8 2 _ 1 _ _ _ 4 _ ] +[ _ _ 4 6 _ 2 9 _ _ ] +[ _ 5 _ _ _ 3 _ 2 8 ] +[ _ _ 9 3 _ _ _ 7 4 ] +[ _ 4 _ _ 5 _ _ 3 6 ] +[ 7 _ 3 _ 1 8 _ _ _ ] diff --git a/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-2 b/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-2 new file mode 100644 index 0000000000..c7c2e7466d --- /dev/null +++ b/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-2 @@ -0,0 +1,9 @@ +[ 6 _ 8 _ 7 _ 5 _ 2 ] +[ _ 5 _ 6 _ 8 _ 7 _ ] +[ _ _ 2 _ _ _ 3 _ _ ] +[ 5 _ _ _ 9 _ _ _ 6 ] +[ _ 4 _ 3 _ 2 _ 5 _ ] +[ 8 _ _ _ 5 _ _ _ 3 ] +[ _ _ 5 _ _ _ 2 _ _ ] +[ _ 1 _ 7 _ 4 _ 9 _ ] +[ 4 _ 9 _ 6 _ 7 _ 1 ] diff --git a/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-3 b/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-3 new file mode 100644 index 0000000000..07a30f0d19 --- /dev/null +++ b/challenge-086/tyler-wardhaugh/clojure/resources/sudoku-3 @@ -0,0 +1,12 @@ +; source +; #425, November 7 - November 13: The Weekly Extreme 'Unsolveable' Sudoku Puzzle +; [Weekly Unsolvable Sudoku](https://www.sudokuwiki.org/weekly_sudoku.asp) +[ 1 _ _ _ 2 _ _ _ _ ] +[ _ 6 9 _ _ 8 5 _ _ ] +[ _ 8 _ _ _ 9 7 1 _ ] +[ _ _ _ 3 _ _ _ _ _ ] +[ 3 5 _ _ _ 6 9 _ _ ] +[ _ _ _ _ _ _ _ 4 _ ] +[ _ _ _ _ _ _ 6 _ _ ] +[ _ 9 _ _ _ _ _ 5 7 ] +[ _ _ 6 _ _ 7 _ 8 9 ] diff --git a/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/core.clj b/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/core.clj new file mode 100644 index 0000000000..49466ce9ae --- /dev/null +++ b/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/core.clj @@ -0,0 +1,12 @@ +(ns tw.weekly.c86.core + (:require [tw.weekly.c86.t1 :as t1]) + (:require [tw.weekly.c86.t2 :as t2]) + (:gen-class)) + +(defn -main + "Run all tasks" + [& _] + (println "Task #1:") + (t1/-main) + (println "\nTask #2:") + (t2/-main)) diff --git a/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/t1.clj b/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/t1.clj new file mode 100644 index 0000000000..4a6a873bc7 --- /dev/null +++ b/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/t1.clj @@ -0,0 +1,24 @@ +(ns tw.weekly.c86.t1 + (:require [clojure.edn :as edn])) + +;;; +; Task description for TASK #1 › Pair Difference +;;; + +(defn pair-difference + "Find a pair of coll such that their difference equals the target" + [target coll] + (let [freqs (frequencies coll) + s (-> freqs keys set) + repeater (fn [v] (when v (repeat 2 v)))] + (if (zero? target) + (->> freqs (filter (fn [[_ v]] (> v 1))) ffirst repeater) + (->> s (keep (fn [v] (let [k (+ target v)] (when (s k) [v k])))) first)))) + +(defn -main + "Run Task 1 with a target A and a list of numbers N, defaulting to the + first example given in the task description." + [& args] + (let [A (or (some->> args first edn/read-string) 7) + N (or (some->> args rest (map edn/read-string)) [10 8 12 15 5])] + (println (if (pair-difference A N) 1 0)))) diff --git a/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/t2.clj b/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/t2.clj new file mode 100644 index 0000000000..ae8c3a371e --- /dev/null +++ b/challenge-086/tyler-wardhaugh/clojure/src/tw/weekly/c86/t2.clj @@ -0,0 +1,41 @@ +(ns tw.weekly.c86.t2 + (:require [clojure.edn :as edn]) + (:require [clojure.java.io :as io]) + (:require [clojure.pprint :refer [cl-format]]) + (:require [clojure.core.matrix :as m]) + (:require [clojure.core.logic :as l]) + (:require [clojure.core.logic.fd :as fd])) + +;;; +; Task description for TASK #2 › Sudoku Puzzle +;;; + +(defn parse-sudoku-file + "Parse a sudoku file and return a matrix" + [sudoku-file] + (with-open [in (io/reader sudoku-file)] + (edn/read-string (str \[ (slurp in) \])))) + +(defn solve + "Solve the sudoku puzzle" + [sudoku] + (let [board (m/emap (fn [x] (if (= '_ x) (l/lvar) x)) sudoku) + subsquares (for [x (range 0 9 3) + y (range 0 9 3)] + (m/eseq (m/submatrix board x 3 y 3)))] + (first + (l/run 1 [q] + (l/== q board) + (l/everyg (fn [q] (fd/in q (fd/interval 1 9))) (m/eseq board)) + (l/everyg fd/distinct (m/rows board)) + (l/everyg fd/distinct (m/columns board)) + (l/everyg fd/distinct subsquares))))) + +(defn -main + "Run Task 2 with a given file containing a sudoku puzzle, defaulting + to the example given in the task description." + [& args] + (let [sudoku-file (or (some-> args first io/file) (io/resource "sudoku-1")) + sudoku (parse-sudoku-file sudoku-file) + solution (solve sudoku)] + (cl-format true "~:[No solution found~;~:*~{~a~^~%~}~]~%" solution))) diff --git a/challenge-086/tyler-wardhaugh/clojure/test/tw/weekly/c86_test.clj b/challenge-086/tyler-wardhaugh/clojure/test/tw/weekly/c86_test.clj new file mode 100644 index 0000000000..aff1b7f17d --- /dev/null +++ b/challenge-086/tyler-wardhaugh/clojure/test/tw/weekly/c86_test.clj @@ -0,0 +1,19 @@ +(ns tw.weekly.c86-test + (:require [clojure.test :refer [deftest is testing]] + [clojure.java.io :as io] + [tw.weekly.c86.t1 :refer [pair-difference]] + [tw.weekly.c86.t2 :refer [parse-sudoku-file solve]])) + +(deftest task-1 + (testing "Task 1, Pair Difference" + (is (some? (pair-difference 7 [10 8 12 15 5]))) + (is (some? (pair-difference 6 [1 5 2 9 7]))) + (is (nil? (pair-difference 15 [10 30 20 50 40]))) + (is (some? (pair-difference 0 [100 1 2 3 4 5 100 999 999]))) + (is (nil? (pair-difference 0 [100 1 2 3 4 5 101]))))) + +(deftest task-2 + (testing "Task 2, Power of Two Integers" + (is (some? (solve (parse-sudoku-file (io/resource "sudoku-1"))))) + (is (some? (solve (parse-sudoku-file (io/resource "sudoku-2"))))) + (is (some? (solve (parse-sudoku-file (io/resource "sudoku-3"))))))) |