Initial data commit

Task/String-comparison/Clojure/string-comparison-1.clj

@@ -0,0 +1,5 @@
+(= "abc" "def")   ; false
+(= "abc" "abc")   ; true
+
+(not= "abc" "def")   ; true
+(not= "abc" "abc")   ; false

Task/String-comparison/Clojure/string-comparison-2.clj

@@ -0,0 +1,2 @@
+(= "abc" "abc" "abc" "abc")   ; true
+(= "abc" "abc" "abc" "def")   ; false

Task/String-comparison/Clojure/string-comparison-3.clj

@@ -0,0 +1 @@
+(apply = ["abc" "abc" "abc" "abc"])   ; true

Task/String-comparison/Clojure/string-comparison-4.clj

@@ -0,0 +1,14 @@
+(defn str-before [a b]
+  (neg? (compare a b)))
+
+(defn str-after [a b]
+  (pos? (compare a b)))
+
+(str-before "abc" "def")   ; true
+(str-before "def" "abc")   ; false
+(str-before "abc" "abc")   ; false
+
+(str-after "abc" "def")    ; false
+(str-after "def" "abc")    ; false
+
+(sort ["foo" "bar" "baz"])   ; ("bar" "baz" "foo")

Task/String-comparison/Clojure/string-comparison-5.clj

@@ -0,0 +1,5 @@
+(defn str-caseless= [a b]
+  (= (clojure.string/lower-case a)
+     (clojure.string/lower-case b)))
+
+(str-caseless= "foo" "fOO")   ; true

Task/String-comparison/Clojure/string-comparison-6.clj

@@ -0,0 +1,12 @@
+(defn str-fuzzy= [a b]
+  (let [cook (fn [v] (clojure.string/trim (str v)))]
+    (= (cook a) (cook b))))
+
+(str-fuzzy= "abc" "  abc")     ; true
+(str-fuzzy= "abc" "abc ")      ; true
+(str-fuzzy= "abc" "  abc ")    ; true
+
+(str-fuzzy= "   42 " 42)       ; true
+(str-fuzzy= "   42 " (* 6 7))  ; true
+
+(str-fuzzy= " 2.5" (/ 5.0 2))  ; true

Task/String-comparison/Clojure/string-comparison-7.clj

@@ -0,0 +1,8 @@
+(def s1 (str "abc" "def"))
+(def s2 (str "ab" "cdef"))
+
+(= s1 "abcdef")           ; true
+(= s1 s2)                 ; true
+
+(identical? s1 "abcdef")  ; false
+(identical? s1 s2)        ; false

Task/String-comparison/Clojure/string-comparison-8.clj

@@ -0,0 +1,8 @@
+(defn istr [s]
+  (.intern s))
+
+(def s3 (istr s1))
+(def s4 (istr s2))
+
+(= s3 s4)           ; true
+(identical? s3 s4)  ; true