тогда я бы сделал (def destructed-nested-structure ) и использовать его ниже по коду )

то есть деструктуризация всегда одинаковая, а тело совсем разное?
но использует одни и те же поля?
и сколько полей используется?

почти одни и те же. полей пять, но каждое из них — тоже хешмапа.

Мне не влом дестрактить, так выходит намного понятнее другим кодерам. Просто дупликация из ниоткуда берется. Мб есть какая-то элегантная либа.

есть макрос, но стоит ли

конкретный или абстрактный?

абстрактно

не парься. надо знать, когда остановиться.

это не дублирование, а видимость её

не хочется же тебе устранить дублирование вот этих "(defn ... [x] ... )", хотя можно было бы.
вот и с этими деструктуризациями тоже так - расслабься.

возможно тебе хочется функции с 5-ю аргументами

:keys ежели что можно делать в векторе объявления аргументов в форме defn, не внутри let

звучит как реакт компоненты, штук 5 в дереве

Бинго! Реакт. Но я про тему.

тема reagent-material-ui'я.

то есть каждое поле в теле используется по одному разу?
если так, то может без деструктуризации будет нагляднее

может, здесь reduce подойдет?

Над этим тоже помедитирую, спасибо!

Простите за спам, не понимаю почему не срабатывает recur здесь 😭
Может кто-то заметит в чем дело?

(defn compute [transitions states]
  (loop [current-transitions transitions]
    (some (fn [{:keys [read action to_state write]}]
            (when (= read (read-tape))
              (write-tape action write)
              (if (= to_state "HALT")
                (System/exit 0)
                (do
                  (println @tape)
                  (recur (get states (keyword to_state)))))))
          current-transitions)))