Slightly refactor tasks (#941)

src/battle_asserts/issues/excel_sheet_column_number.clj

@@ -37,10 +37,10 @@
 (defn pow [base exp]
   (apply * (repeat exp base)))
 
-(defn solution [s]
+(defn solution [sheet]
   (->>
-   s
-   clojure.string/reverse
+   sheet
+   s/reverse
    char-array
    (map-indexed #(* (- (int %2) 64) (pow 26 %1)))
    (apply +)))

src/battle_asserts/issues/read_roman_numerals.clj

@@ -1,6 +1,6 @@
 (ns battle-asserts.issues.read-roman-numerals
   (:require [clojure.pprint :as pprint]
-            [clojure.string]
+            [clojure.string :as s]
             [clojure.test.check.generators :as gen]))
 
 (def level :hard)
@@ -32,7 +32,7 @@
 
 (defn solution [roman]
   (let [numerals {\I 1, \V 5, \X 10, \L 50, \C 100, \D 500, \M 1000}]
-    (loop [roman-reverse (clojure.string/reverse roman) last-element 0 sum 0]
+    (loop [roman-reverse (s/reverse roman) last-element 0 sum 0]
       (if (empty? roman-reverse)
         sum
         (let [value (numerals (first roman-reverse))

src/battle_asserts/issues/reverse_each_word.clj

@@ -30,5 +30,5 @@
 (defn solution [string]
   (->>
    (s/split string #" ")
-   (map clojure.string/reverse)
+   (map s/reverse)
    (s/join " ")))

src/battle_asserts/issues/underscore.clj

@@ -36,8 +36,8 @@
 (defn solution [string]
   (->
    string
-   (clojure.string/replace #"-" "_")
-   (clojure.string/replace #"([a-z\d])([A-Z])" "$1_$2")
-   (clojure.string/replace #"([A-Z+])([A-Z][a-z])" "$1_$2")
-   (clojure.string/replace #"::" "/")
-   clojure.string/lower-case))
+   (s/replace #"-" "_")
+   (s/replace #"([a-z\d])([A-Z])" "$1_$2")
+   (s/replace #"([A-Z+])([A-Z][a-z])" "$1_$2")
+   (s/replace #"::" "/")
+   s/lower-case))

src/battle_asserts/issues/word_pattern.clj

@@ -53,4 +53,4 @@
 (defn solution [pattern words]
   (=
    (transform (vec (seq pattern)))
-   (transform (clojure.string/split words #" "))))
+   (transform (s/split words #" "))))