Ch133 (Clojure): Task 1

2 files changed, 29 insertions, 1 deletions

diff --git a/challenge-133/tyler-wardhaugh/clojure/src/tw/weekly/c133/t1.clj b/challenge-133/tyler-wardhaugh/clojure/src/tw/weekly/c133/t1.clj
index 64c77e4ed7..52c713ec7e 100644
--- a/challenge-133/tyler-wardhaugh/clojure/src/tw/weekly/c133/t1.clj
+++ b/challenge-133/tyler-wardhaugh/clojure/src/tw/weekly/c133/t1.clj
@@ -6,9 +6,26 @@
 ;;;
 (def DEFAULT-INPUT [10])
 
+(defn isqrt-easy
+  "Return the integer square root of n, the easy way."
+  [n]
+  (int (Math/sqrt n)))
+
+(defn isqrt
+  "Return the integer square root of n, a slightly more manual way."
+  [n]
+  (let [x (quot n 2)
+        next-x (fn [x] (quot (+ x (quot n x)) 2))
+        xf (comp
+             (partition-all 2)
+             (drop-while (partial apply not=)))]
+    (->> (iterate next-x x)
+         (sequence xf)
+         ffirst)))
+
 (defn -main
   "Run Task 1 with a given input N, defaulting to the first example from the
   task description."
   [& args]
   (let [[N] (or (some->> args (map edn/read-string)) DEFAULT-INPUT)]
-    ))
+    (println (isqrt N))))
diff --git a/challenge-133/tyler-wardhaugh/clojure/test/tw/weekly/c133/t1_test.clj b/challenge-133/tyler-wardhaugh/clojure/test/tw/weekly/c133/t1_test.clj
new file mode 100644
index 0000000000..126ea39d18
--- /dev/null
+++ b/challenge-133/tyler-wardhaugh/clojure/test/tw/weekly/c133/t1_test.clj
@@ -0,0 +1,11 @@
+(ns tw.weekly.c133.t1-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [tw.weekly.c133.t1 :refer [isqrt isqrt-easy]]))
+
+(deftest examples
+  (testing "Examples from description"
+    (let [both (juxt isqrt isqrt-easy)]
+      (is (apply = 3 (both 10)))
+      (is (apply = 5 (both 27)))
+      (is (apply = 9 (both 85)))
+      (is (apply = 10 (both 101))))))