converted power of two

src/battle_asserts/issues/power_of_two.clj

@@ -0,0 +1,16 @@
+(ns battle-asserts.issues.power-of-two
+  (:require [clojure.test.check.generators :as gen]
+            [faker.generate :as faker]))
+
+(def level :easy)
+
+(def description "Given an integer, write a function to determine if it is a power of two.")
+
+(defn arguments-generator []
+  (let [power-of-two [1 2 8 32 256 1024 4096 16348]]
+    (gen/tuple (gen/one-of [(gen/choose 0 30000)
+                            (gen/elements power-of-two)]))))
+
+(defn solution [n]
+  (and (not (zero? n))
+       (zero? (bit-and n (dec n)))))

test/battle_asserts/issues/power_of_two_test.clj

@@ -0,0 +1,15 @@
+(ns battle-asserts.issues.power-of-two-test
+  (:require [clojure.test :refer :all]
+            [clojure.test.check.properties :as prop :include-macros true]
+            [clojure.test.check.clojure-test :as ct :include-macros true]
+            [battle-asserts.issues.power-of-two :as issue]))
+
+(deftest test-solution
+  (is (issue/solution 16))
+  (is (not (issue/solution 20)))
+  (is (issue/solution 1))
+  (is (not (issue/solution 258)))
+  (is (issue/solution 512))
+  (is (not (issue/solution 513)))
+  (is (issue/solution 1024))
+  (is (not (issue/solution 0))))