))) тебе ссыль на кодстайл кинуть или сам нагуглишь?

вместо >= в if-ах можно neg? заюзать (свопнув ветки, конечно)

чекнул пару ссылок, так?

(def step 0.5)

(defn calculate-trap-area [a b h]
 (* h (/ (+ a b) 2)))

(def m-calc-positive-integral
 (memoize
   (fn [f x]
     (let [a (- x step)
           b x
           calculate-area (calculate-trap-area (f b) (f a) step)]
       (if (neg? a)
         0
         (+ calculate-area (m-calc-positive-integral f a)))))))

(defn integral [func]
 (fn [x]
   (let [modifier (if (neg? x) -1 1)]
     (*
       modifier
       (m-calc-positive-integral func (* x modifier))))))

(def heavy-func (fn [x] (do (println (str "calculate f(" x ")")) (Thread/sleep 100) (* x x))))

(defn -main [& args]

 (println (time ((integral heavy-func) 5)))
 (println (time ((integral heavy-func) -5)))

 (testing "Integral"
   (testing "with positive numbers"
     (is (= 41.875 ((integral #(* % %)) 5))))
   (testing "with negative numbers"
     (is (= -41.875 ((integral #(* % %)) -5))))))

спасибо

Вместо . concat проще написать str

Второй neg? криво написал

Так ведь if не кошерно! Хуже goto, не?

спасибо, самому что-то глаза резануло😔

А што такое мемоизе кстати зачем он?

кэширование, чтобы повторно не вычислять результат функции

Сорян но сохранить результат исполнения в переменную (окей константу) не вариант?

функция вызывается многократно с разными значениями аргумента

Ну

Так там в сущности это и происходит. Только внутри.

При этом если функция чистая до определённой степени, снаружи никто ничего толком и не почувствует, а код станет сложнее примерно на одну форму.

Классная штука, но ненужная. Так же, как STM.

И то нужное, и это нужное.

Вариант, конечно, но тут это само автоматом делается. Тебе же надо сохранить результат в зависимости от входных параметров.

Тихо! У меня план: чуваку надо показать ещё одну ненужную штуку.
То, что она все-таки нужна одному из 752 участников чата - это ему знать не обязательно.