Home Work 2 Boriskin

otus-01/src/otus/homework.clj

@@ -1,5 +1,11 @@
 (ns otus.homework)
 
 
-(defn solution "Add your solution as fuction body here" [])
+(defn solution
+  "Add your solution as function body here"
+  []
+  (double
+    (/
+      (+ 5 4 (- 2 (- 3 (+ 6 (/ 4 5)))))
+      (* 3 (- 6 2) (- 2 7)))))
 

otus-02/src/otus_02/homework/common_child.clj

@@ -1,4 +1,6 @@
-(ns otus-02.homework.common-child)
+(ns otus-02.homework.common-child
+  (:require [clojure.string :as s]
+            [clojure.set :refer [intersection]]))
 
 
 ;; Строка называется потомком другой строки,
@@ -15,8 +17,37 @@
 
 ;; Еще пример HARRY и SALLY. Ответ будет - 2, так как общий элемент у них AY
 
-
-(defn common-child-length [first-string second-string])
-
-
-
+(defn combinations
+  "Ищем все возможные комбинации потомков в сторке с учетом порядка следования букв"
+  [letters]
+  (loop [result      nil
+         rest-result letters]
+    (if (empty? rest-result)
+      #{result}  
+      (let [current              (first rest-result)
+            next-result          (conj result current)
+            combinations-without (combinations (rest rest-result))
+            combinations-with    (mapv #(str current %) combinations-without)]
+        (set (concat combinations-with (combinations (rest rest-result))))))))
+
+(defn delete-not-repeat-letter
+  "Удаляем не повторяющиеся буквы в двух строках"
+  [first-string second-string]
+  (filterv identity
+    (map (fn [x]
+           (if (s/includes? second-string x)
+             x)) first-string)))
+
+(defn common-child-length
+  "Вычисляем максимального потомка"
+  [first-string second-string]
+  (let [s1            (re-seq #"[\w+]" first-string) 
+        s2            (re-seq #"[\w+]" second-string)
+        s1-not-repeat (delete-not-repeat-letter s1 s2)
+        s2-not-repeat (delete-not-repeat-letter s2 s1)]
+    (reduce max
+      (map count
+        (some-> (intersection (combinations s1-not-repeat) (combinations s2-not-repeat)))))))
+
+;;(time (common-child-length  "HARRY" "SALLY"))
+;;=> "Elapsed time: 0.132041 msecs"

otus-02/src/otus_02/homework/palindrome.clj

@@ -2,5 +2,10 @@
   (:require [clojure.string :as string]))
 
 
-(defn is-palindrome [test-string])
-
+(defn is-palindrome
+  [test-string]
+  (as-> test-string p
+        (re-seq #"[\w+]" p)
+        (string/join "" p)
+        (string/lower-case p)
+        (= (string/reverse p) p))) 

otus-02/src/otus_02/homework/pangram.clj

@@ -2,5 +2,11 @@
   (:require [clojure.string :as string]))
 
 
-(defn is-pangram [test-string])
-
+(defn is-pangram
+  [test-string]
+  (as-> test-string p
+    (string/lower-case p)
+    (re-seq #"[\w+]" p)
+    (set p)
+    (string/join "" p)
+    (= (count p) 26)))