add lesson 21

Author: astynax

otus-21/README.md

@@ -0,0 +1,37 @@
+# outs-21
+
+Деревья, графы, зипперы, поиск пути.
+
+## Домашнее задание
+
+Вам предстоит решить первую часть [задачи дня №7](https://adventofcode.com/2022/day/7) из серии AdventOfCode 2022.
+
+Суть задачи заключается в том, чтобы суметь декодировать "журнал работы в терминале", имеющий вид:
+
+    $ cd /
+    $ ls
+    dir a
+    14848514 b.txt
+    8504156 c.dat
+    dir d
+    $ cd a
+    $ ls
+    dir e
+    29116 f
+    2557 g
+    62596 h.lst
+
+Здесь вы видите команды
+
+- `cd /` - переход в корень диска
+- `cd ..` - переход в родительскую директорию
+- `cd name` - переход в поддиректорию "name"
+- `ls` - вывод списка поддиректорий и файлов в текущей директории
+
+Команда `cd` никогда не делает более одного "движения" за раз: вы либо спускаетесь на один уровень вниз (в поддиректорию) или поднимаетесь на один уровень вверх. Исключение ровно одно — `cd /`, но оно встречается только в начале журнала.
+
+Содержимое директории выводится в виде списка, содержащего имена поддиректорий в формате `dir name` и файлы вместе с их размерами `<размер-в-байтах> имя`.
+
+Вам предстоит подсчитать размер каждой директории, который равен сумме размеров поддиректорий и файлов.
+
+Функция `sum-of-sizes` должна принимать журнал в виде строки и возвращать сумму размеров тех директорий, которые занимают на диске 100000 байт и меньше. Учитывать вложенность не нужно: если вы встретите две директории нужного размера и при этом окажется, что одна из них находится в другой, то никаких дополнительных действий делать не нужно — вы всё также складываете размеры.

otus-21/project.clj

@@ -0,0 +1,7 @@
+(defproject otus-21 "0.1.0-SNAPSHOT"
+  :description "FIXME: write description"
+  :url "http://example.com/FIXME"
+  :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"
+            :url "https://www.eclipse.org/legal/epl-2.0/"}
+  :dependencies [[org.clojure/clojure "1.11.1"]]
+  :repl-options {:init-ns otus-21.core})

otus-21/src/otus_21/core.clj

@@ -0,0 +1,148 @@
+;; * Clojure Developer, урок 21
+(ns otus-21.core
+  (:require [clojure.zip :as z]
+            [clojure.walk :as w]))
+
+;; * Древовидные структуры
+
+(def bin-tree
+  [3 [1 nil [2 nil nil]]
+   [7 [5 [4 nil nil] [6 nil nil]]
+    [8 nil nil]]])
+
+(def dict
+  [:c [:a [:b
+           :t]
+       :olor]])
+
+;; * Графы
+
+;;   b - c
+;;  /   /
+;; a   e   g
+;;  \ /   /
+;;   d - f
+
+;; ** Матрица смежности
+
+;;   a b c d e f g
+;; a x 1 0 1 0 0 0
+;; b 1 x 1 0 0 0 0
+;; c 0 1 x 0 1 0 1
+;; d       x     .
+;; e         x   .
+;; f           x .
+;; g . . . . . . x
+
+;; ** Списки смежности
+
+;; a: b, d
+;; b: a, c
+;; c: b, e, g
+;; d: a, e, f
+;; e: c, d
+;; f: d
+;; g: c
+
+;; *** пример
+
+(def gr
+  {:a [:b :d]
+   :b [:a :c]
+   :c [:b :e :g]
+   :d [:a :e :f]
+   :e [:c :d]
+   :f [:d]
+   :g [:c]})
+
+(def gr2
+  {:a [nil [:b :d]]
+   :b [:a [:c]]
+   ;; ...
+   })
+
+;; * clojure.walk
+
+;; ** walk
+
+(comment
+  (w/walk (fn [x] (if (number? x) (str x) x))
+          identity bin-tree)
+
+  (letfn [(sum [t]
+            (cond (coll? t)
+                  (w/walk sum (partial reduce +) t)
+
+                  (nil? t) 0
+
+                  true t))]
+    (sum bin-tree)))
+
+;; ** prewalk/postwalk
+
+(comment
+  (w/prewalk str bin-tree)
+  (w/postwalk
+   (fn [x] (if (number? x) (str x) x))
+   bin-tree))
+
+;; * clojure.zip
+
+(comment
+  (-> bin-tree
+      z/vector-zip
+      z/down
+      z/right
+      z/down
+      z/rightmost
+      z/down
+      (z/edit + 100)
+      z/root)
+
+  (-> bin-tree
+      z/vector-zip
+      z/down
+      z/right
+      z/down))
+
+;; FIXME: broken
+(comment
+  (loop [c (z/vector-zip bin-tree)]
+    (let [n (if (odd? (z/node c))
+              (z/edit c + 100)
+              c)]
+      (if (z/branch? n)
+        (recur (z/down n))
+        (loop [n (z/up n)
+               prev n]
+          (let [[found n]
+                (cond (nil? n)
+                      [true (z/root prev)]
+
+                      (nil? (z/right n))
+                      (recur (z/up n) n)
+
+                      [false (z/right n)])]
+            (if found n
+                (recur n))))))))
+
+;; ** zipper
+
+(def gr-zipper
+  (z/zipper
+   (constantly true)
+   #(get gr %)
+   (fn [n _] n)
+   :a))
+
+(comment
+  (-> gr-zipper
+      z/down
+      z/down
+      z/right
+      z/down
+      z/right
+      z/right
+      z/children))
+
+;; * Поиск

otus-21/src/otus_21/homework/core.clj

@@ -0,0 +1,9 @@
+(ns otus-21.homework.core)
+
+(defn sum-of-sizes [input]
+  "По журналу сеанса работы в терминале воссоздаёт файловую систему
+и подсчитывает сумму размеров директорий, занимающих на диске до
+100000 байт (сумма размеров не учитывает случай, когда найденные
+директории вложены друг в друга: размеры директорий всё так же
+суммируются)."
+  0)

otus-21/test/otus_21/core_test.clj

@@ -0,0 +1,3 @@
+(ns otus-21.core-test
+  (:require [clojure.test :refer :all]
+            [otus-21.core :refer :all]))

otus-21/test/otus_21/homework/core_test.clj

@@ -0,0 +1,34 @@
+(ns otus-21.homework.core-test
+  (:require [clojure.test :refer :all]
+            [otus-21.homework.core :refer :all]))
+
+(def example
+  "$ cd /
+$ ls
+dir a
+14848514 b.txt
+8504156 c.dat
+dir d
+$ cd a
+$ ls
+dir e
+29116 f
+2557 g
+62596 h.lst
+$ cd e
+$ ls
+584 i
+$ cd ..
+$ cd ..
+$ cd d
+$ ls
+4060174 j
+8033020 d.log
+5626152 d.ext
+7214296 k
+")
+
+(deftest sum-of-sizes-test
+  (testing "Work with the example"
+    (is (= (sum-of-sizes example)
+           95437))))