dz4 is done #22

vadych · 2023-05-26T15:24:14Z

Меня волнует вопрос - не слишком ли много абстракций я наделал.
Это касается вспомогательных функций для чтения данных, настроек и т.п. из БД

Убрал loop из -main.

margintop15px · 2023-06-01T09:17:26Z

otus-06/src/otus_06/homework.clj

+  ;; корректно прочитать "123-456" "123 jonh" и т.п.
+  ;; Решил обойти таким образом. 
+  ;; Буду благодарен за подсказку
+  (if (re-matches #"\d+\.*\d*"  s)


не совсем понял для чего в этом месте используется регулярка.
у вас ведь есть схема для всех полей в :field-type так? можно например используя эту информацию парсить строки с помощью функций parseInt и parseDouble. Только надо будет в try catch завернуть на случай ошибок

Если честно не нашел функций parseInt и parseDouble.
Сначала была именно такая задумка. Но потом решил пойти таким путем и мне кажется он проще.
а :field-type это уже артефакт скорее

я имел ввиду эти функции
(Integer/parseInt "1")
(Double/parseDouble "1.3")

Я уже нашел.
Но никак не привыкну, что в Java есть все и нужно искать там. В ней я вообще не знаком

а что конкретно проверяет регулярка?

вот это не кажется валидным числом

Проверяет число или нет. Косякнул.
Правильная регулярна #"\d+\.?\d*"
Исправил.

otus-06/src/otus_06/homework.clj

margintop15px · 2023-06-01T09:35:02Z

otus-06/src/otus_06/homework.clj

+  [db table fieeld x]
+  (filterv #( = x (fieeld %))(get-data db table)))


вижу что find-row используется в связке с first, но при этом filterv зарелизит всю коллекцию сразу,
если оставить просто filter то результатом будет lazy sequence и в связке с first обход элементов остановится на первом найденом элементе

Не только.
find-row либо вернёт одну запись, если ищет по id, либо вернёт массив, который тут же будет релизится, что бы посчитать данные для отчета.
Имеет ли смысл тогда исправлять? first тут нужен что бы избавиться от вектора, в котором есть одна запись

otus-06/src/otus_06/homework.clj

margintop15px · 2023-06-01T10:03:06Z

otus-06/src/otus_06/homework.clj

+               arg-rows (for [r rows]
+                         (map #(get-val db % r) args))]


кажется тут подошла бы функция juxt https://clojuredocs.org/clojure.core/juxt
если сделать из args набор функций то можно обойтись одним map без for
например так (map (apply juxt args) rows) и это уменьшит количество выполняемых действий: один проход по args + map по количеству rows вместо args * rows операций

Спасибо за наводку на интересную функцию.
Но тут, вектор из ключей не два поля одной хэш-мапы, а таблица и поле из которых нужно достать значение по id.
Задача функции get-val определить из какой таблицы брать какое поле. И вернуть нужное значение

я имел ввиду что-то вроде такого

(let [arg-functions (map #(partial get-val db %) args) arg-rows (map (apply juxt arg-functions) rows)])

arg-functions - тут будет набор функций и все они вызовутся на каждой строке
тоже самое что и вашем коде но без использования for
так не обязательно делать просто упомянул что есть еще и такая возможность

Все, понял!
Спасибо за наводку. Использовал в тексте

margintop15px · 2023-06-01T10:21:34Z

otus-06/src/otus_06/homework.clj

+(defn -main 
+  "Точка входа. Крутит меню и запускает нужные функции"
+  []
+  (reduce #(%2 %1) (load-db db) (repeatedly show-menu)))


тут семантически больше подошел бы loop. reduce он все же про работу с коллекциями

Вот был сначала loop :)
Но за него в последнее время ругают

прям ругают? ))
в использовании loop/recur нет ничего плохого
мне кажется в чате как раз разговор был о том что есть ситуации когда loop действительно подходит лучше чем всё остальное (например когда вам явно нужен бесконечный цикл или когда количество итераций не определенно заранее), но есть и другие ситуации когда нужно пробежаться по коллекции или агрегировать коллекцию по какой то функции, тут есть специализированные методы (map, reduce)
Конкретно в этом случае loop выглядит идеально (мы не знаем сколько команд введёт пользователь)

Ну засмущал Алексей :)
Первоначально и был loop.
Потом открыл для себя repeatedly
В принципе я изначально так строил приложение, что все функции меню возвращают db, которая прокидывается дальше. Поэтому это решение прямо идеально легло.
Но я помню - reduce он для данных

margintop15px

в целом хорошо
задумка с явной схемой базы данных ясна
не думаю что абстракций слишком уж много
всегда предпочтительнее иметь много простых функций вместо двух-трех больших функций которые делают все и сразу

margintop15px · 2023-06-02T13:47:08Z

otus-06/src/otus_06/homework.clj

+(defn create-string 
+  "Принимает вектор значений и возвращает строку, как в файле"
+  [fields row]
+  (->> (map row fields)


👍 отличный подход, использовать хэш папу как функцию

Это меня и завораживает в Clojure: почти все - функция

margintop15px · 2023-06-02T13:50:20Z

otus-06/src/otus_06/homework.clj

+  (let [[promt, fmt] (get-rep-format rep)]
+    (println promt)
+    (let [name (read-line)]
+      (println (format fmt name (calc-report db rep name)))))


напрашивается ->

(-> name (calc-report db rep) (format fmt name) println)

читать сверху вниз зачастую легче чем справа на лево

Согласен. Но пока не всегда подключаются в мозгу такие решения.

margintop15px · 2023-06-02T22:22:36Z

otus-06/src/otus_06/homework.clj

+       (if-let [id (f-id (find-first-row db t-search f-search name))]
+         (let [rows (find-row db :sales f-group id)
+               arg-func (map #(partial get-val db %) args)
+               arg-rows (map (apply juxt arg-func) rows)]


margintop15px

всё хорошо
спасибо за работу

work on bugs 2 work on bugs 2

vadych added 4 commits May 26, 2023 18:22

dz4 is done

a0afbd6

review dz4

9db0e6e

add save to file

cfdf9aa

code review

e3e2afa

Убрал loop из -main.

margintop15px reviewed Jun 1, 2023

View reviewed changes

otus-06/src/otus_06/homework.clj Outdated Show resolved Hide resolved

margintop15px reviewed Jun 1, 2023

View reviewed changes

otus-06/src/otus_06/homework.clj Outdated Show resolved Hide resolved

margintop15px reviewed Jun 1, 2023

View reviewed changes

otus-06/src/otus_06/homework.clj Outdated Show resolved Hide resolved

margintop15px reviewed Jun 1, 2023

View reviewed changes

margintop15px reviewed Jun 2, 2023

View reviewed changes

work on bugs 1

6218309

work on bugs 2 work on bugs 2

vadych force-pushed the dz4_sisin branch from b93b4a8 to 6218309 Compare June 7, 2023 10:42

		[db table fieeld x]
		(filterv #( = x (fieeld %))(get-data db table)))

dz4 is done #22

Are you sure you want to change the base?

dz4 is done #22

Uh oh!

Conversation

vadych commented May 26, 2023

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Uh oh!

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

margintop15px left a comment

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

Choose a reason for hiding this comment

Uh oh!

margintop15px left a comment

Choose a reason for hiding this comment

Uh oh!

Reviewers

Assignees

Labels

Projects

Milestone

Development

Uh oh!

2 participants