What's wrong with my code? Why in output memoized version are slowly?
(def h 0.01)

(defn trapezoid [f h x1 x2]
  (* h (/ (+ (f x1) (f x2)) 2)))

;; Мемоизированная версия интеграции
(defn integrate-memoized [f h summ n]
  (let [x1 (* h n), x2 (* h (inc n))]
    (if (zero? n)
      summ
      (recur f h (+ summ (trapezoid f h x1 x2)) (dec n)))))

(defn integral-memoized [f h]
  (let [memo-f (memoize f)]
    (fn [x] (integrate-memoized memo-f h 0 (int (/ x h))))))

;; Обычная версия интеграции без мемоизации
(defn integrate-plain [f h summ n]
  (let [x1 (* h n), x2 (* h (inc n))]
    (if (zero? n)
      summ
      (recur f h (+ summ (trapezoid f h x1 x2)) (dec n)))))

(defn integral-plain [f h]
  (fn [x] (integrate-plain f h 0 (int (/ x h)))))


;; Версия с ленивыми последовательностями
(defn integrate-lazy [f h summ n]
  (let [x1 (* h n), x2 (* h (inc n))]
    (cons summ (lazy-seq (integrate-lazy f h (+ summ (trapezoid f h x1 x2)) (inc n))))))

(defn integral-lazy [f h]
  (let [sequence (integrate-lazy f h 0 0)]
    (fn [x] (nth sequence (dec (int (/ x h)))))))

;; Интегралы для cos и sin
(def integral-cosx-memoized (integral-memoized (fn [x] (Math/cos x)) h))
(def integral-sinx-memoized (integral-memoized (fn [x] (Math/sin x)) h))

(def integral-cosx-plain (integral-plain (fn [x] (Math/cos x)) h))
(def integral-sinx-plain (integral-plain (fn [x] (Math/sin x)) h))

(def integral-cosx-lazy (integral-lazy (fn [x] (Math/cos x)) h))
(def integral-sinx-lazy (integral-lazy (fn [x] (Math/sin x)) h))

(println "Сравнение производительности интегрирования:")
  
  ;; Сравнение для интеграла cosx
  (println "\nMem cos(x):")
  (time (integral-cosx-memoized 0.5))
  (time (integral-cosx-memoized 1))
  (time (integral-cosx-memoized 2))
  (time (integral-cosx-memoized 4))
  (time (integral-cosx-memoized 5))
  
  (println "\nRegular cos(x):")
  (time (integral-cosx-plain 0.5))
  (time (integral-cosx-plain 1))
  (time (integral-cosx-plain 2))
  (time (integral-cosx-plain 4))
  (time (integral-cosx-plain 5))

  (println "\nLazy cos(x):")
  (time (integral-cosx-lazy 0.5))
  (time (integral-cosx-lazy 1))
  (time (integral-cosx-lazy 2))
  (time (integral-cosx-lazy 4))
  (time (integral-cosx-lazy 5))
  
  ;; Сравнение для интеграла sinx
  (println "\nMem sin(x):")
  (time (integral-sinx-memoized 0.5))
  (time (integral-sinx-memoized 1))
  (time (integral-sinx-memoized 2))
  (time (integral-sinx-memoized 4))
  (time (integral-sinx-memoized 5))
  
  (println "\nRegular sin(x):")
  (time (integral-sinx-plain 0.5))
  (time (integral-sinx-plain 1))
  (time (integral-sinx-plain 2))
  (time (integral-sinx-plain 4))
  (time (integral-sinx-plain 5))

  (println "\nLazy sin(x):")
  (time (integral-sinx-lazy 0.5))
  (time (integral-sinx-lazy 1))
  (time (integral-sinx-lazy 2))
  (time (integral-sinx-lazy 4))
  (time (integral-sinx-lazy 5))

Output
Mem cos(x):
"Elapsed time: 0.93608 msecs"
"Elapsed time: 14.303913 msecs"
"Elapsed time: 17.430921 msecs"
"Elapsed time: 1.20013 msecs"
"Elapsed time: 0.864107 msecs"

Regular cos(x):
"Elapsed time: 0.234738 msecs"
"Elapsed time: 0.149633 msecs"
"Elapsed time: 0.289763 msecs"
"Elapsed time: 0.25698 msecs"
"Elapsed time: 0.30291 msecs"

Lazy cos(x):
"Elapsed time: 0.162182 msecs"
"Elapsed time: 0.112848 msecs"
"Elapsed time: 0.210514 msecs"
"Elapsed time: 0.302371 msecs"
"Elapsed time: 0.173528 msecs"

Mem sin(x):
"Elapsed time: 0.24256 msecs"
"Elapsed time: 0.205443 msecs"
"Elapsed time: 0.379852 msecs"
"Elapsed time: 0.826646 msecs"
"Elapsed time: 16.977081 msecs"

Regular sin(x):
"Elapsed time: 0.110716 msecs"
"Elapsed time: 0.117526 msecs"
"Elapsed time: 0.137496 msecs"
"Elapsed time: 0.243759 msecs"
"Elapsed time: 0.315188 msecs"

Lazy sin(x):
"Elapsed time: 0.146053 msecs"
"Elapsed time: 0.133483 msecs"
"Elapsed time: 0.144576 msecs"
"Elapsed time: 0.246976 msecs"
"Elapsed time: 0.152761 msecs"