Add solution for simple calculator issue

src/battle_asserts/issues/simple_calculator.clj

@@ -0,0 +1,32 @@
+(ns battle-asserts.issues.simple-calculator
+  (:require [clojure.test.check.generators :as gen]))
+
+(def level :easy)
+
+(def description "Create simple calculator that supports next operations: add, substract, divide, multiply, modulo.")
+
+(def signature
+  {:input [{:argument-name "first-num" :type {:name "integer"}}
+           {:argument-name "second-num" :type {:name "integer"}}
+           {:argument-name "operation" :type {:name "string"}}]
+   :output {:type {:name "integer"}}})
+
+(defn arguments-generator []
+  (let [operations ["+" "-" "*" "/" "%"]]
+    (gen/tuple (gen/choose -50 50) (gen/one-of [(gen/choose 1 50) (gen/choose -50 -1)]) (gen/elements operations))))
+
+(def test-data
+  [{:expected 11 :arguments [1 10 "+"]}
+   {:expected -3 :arguments [2 5 "-"]}
+   {:expected 0 :arguments [0 5 "*"]}
+   {:expected 5 :arguments [10 2 "/"]}
+   {:expected 2 :arguments [2 3 "%"]}])
+
+(defn solution
+  [first-num second-num operation]
+  (let [operations-map {"+" (fn [a b] (+ a b))
+                        "-" (fn [a b] (- a b))
+                        "*" (fn [a b] (* a b))
+                        "/" (fn [a b] (/ a b))
+                        "%" (fn [a b] (mod a b))}]
+    ((operations-map operation) first-num second-num)))

test/battle_asserts/issues/simple_calculator_test.clj

@@ -0,0 +1,15 @@
+(ns battle-asserts.issues.simple-calculator-test
+  (:require [clojure.test :refer :all]
+            [clojure.test.check.properties :as prop]
+            [clojure.test.check.clojure-test :as ct]
+            [test-helper :as h]
+            [battle-asserts.issues.simple-calculator :as issue]))
+
+(ct/defspec spec-solution
+  20
+  (prop/for-all [v (issue/arguments-generator)]
+                (instance? Number (apply issue/solution v))))
+
+(deftest test-solution
+  (h/generate-tests issue/test-data issue/solution))
+