Add sort by length task

src/battle_asserts/issues/sort_by_length.clj

@@ -0,0 +1,22 @@
+(ns battle-asserts.issues.sort-by-length
+  (:require [clojure.test.check.generators :as gen]
+            [faker.generate :as faker]))
+
+(def level :elementary)
+
+(def description "Create a function that returns an array of strings sorted by length in descending order.")
+
+(def signature
+  {:input [{:argument-name "words" :type {:name "array" :nested {:name "string"}}}]
+   :output {:type {:name "array" :nested {:name "string"}}}})
+
+(defn arguments-generator []
+  (gen/tuple (gen/vector (gen/elements (faker/words {:lang :en :n 100})) 3 10)))
+
+(def test-data
+  [{:expected ["dddd" "ccc" "bb" "a"] :arguments [["a" "ccc" "dddd" "bb"]]}
+   {:expected ["shortcake" "apple" "pie"] :arguments [["apple" "pie" "shortcake"]]}
+   {:expected ["september" "august" "april" "may"] :arguments [["may" "april" "september" "august"]]}])
+
+(defn solution [words]
+  (vec (sort-by count > words)))

test/battle_asserts/issues/sort_by_length_test.clj

@@ -0,0 +1,21 @@
+(ns battle-asserts.issues.sort-by-length-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.sort-by-length :as issue]))
+
+(ct/defspec spec-solution
+  20
+  (prop/for-all [v (issue/arguments-generator)]
+                (print v)
+                (vector? (apply issue/solution v))))
+
+(ct/defspec spec-signature
+  20
+  (prop/for-all [v (issue/arguments-generator)]
+                (true? (h/generate-signatures issue/signature v))))
+
+(deftest test-solution
+  (h/generate-tests issue/test-data issue/solution))
+