Clojure Суммирование элементов списка между максимумом и минимумом

(defun sum-min-max (lst)
  (let ((min (car lst)) (pmin 0) (max (car lst)) (pmax 0))
       (iter (for i in lst) (for p from 0 to (- (length lst) 1))
             (when (> i max) (setq max i pmax p))
             (when (< i min) (setq min i pmin p)))
       (apply '+ (remove-if 'minusp (subseq lst (+ 1 (min pmin pmax)) (max pmin pmax))))))
 
 
==> sum-min-max
 
(sum-min-max '(1 2 -3 1 2 7 4 10 2))
 
==> 14
 
(sum-min-max '(1 2 10 1 2 7 4 -3 2))
 
==> 14

(defvar *z*)
(setq *z* (loop for i downfrom 30000 to 1 collect i))
;;;; REPL
CL-USER>
(time (dotimes (k 10000 'ok) (reduce #'+ *z*)))
Evaluation took:
  20.736 seconds of real time
  20.697293 seconds of total run time (20.637290 user, 0.060003 system)
  [ Run times consist of 1.664 seconds GC time, and 19.034 seconds non-GC time. ]
  99.81% CPU
  49,652,510,688 processor cycles
  4,799,857,968 bytes consed
  
OK
CL-USER> 
(time (dotimes (k 10000 'ok) (reduce '+ *z*)))
Evaluation took:
  23.909 seconds of real time
  23.857491 seconds of total run time (23.745484 user, 0.112007 system)
  [ Run times consist of 0.932 seconds GC time, and 22.926 seconds non-GC time. ]
  99.78% CPU
  57,252,075,200 processor cycles
  4,799,860,736 bytes consed
  
OK
CL-USER> 
(time (dotimes (k 10000 'ok) (apply #'+ *z*)))
Evaluation took:
  4.028 seconds of real time
  4.068254 seconds of total run time (3.992249 user, 0.076005 system)
  [ Run times consist of 0.724 seconds GC time, and 3.345 seconds non-GC time. ]
  100.99% CPU
  9,643,945,048 processor cycles
  2,400,000,000 bytes consed
  
OK
CL-USER> 
(time (dotimes (k 10000 'ok) (reduce #'(lambda (x y)
                                         (+ x y)) 
                                     *z*)))
Evaluation took:
  3.664 seconds of real time
  3.660228 seconds of total run time (3.660228 user, 0.000000 system)
  99.89% CPU
  8,773,295,584 processor cycles
  37,776 bytes consed
  
OK
CL-USER> 
(time (dotimes (k 10000 'ok) (loop for i in *z* sum i)))
Evaluation took:
  1.235 seconds of real time
  1.236077 seconds of total run time (1.236077 user, 0.000000 system)
  100.08% CPU
  2,958,274,578 processor cycles
  12,912 bytes consed
  
OK

INSOMNIA> (defparameter *lst-10000000*
            (loop repeat 10000000 collect (random 10000000)))
*LST-10000000*
INSOMNIA> (time (reduce #'+ *lst-10000000*))
Evaluation took:
  0.273 seconds of real time
  0.271000 seconds of total run time (0.270000 user, 0.001000 system)
  99.27% CPU
  651,859,789 processor cycles
  416 bytes consed
  
50016422240396

INSOMNIA> (time
           (loop for a in *lst-10000000*
              sum a))
Evaluation took:
  0.070 seconds of real time
  0.069000 seconds of total run time (0.069000 user, 0.000000 system)
  98.57% CPU
  166,878,886 processor cycles
  0 bytes consed
  
50016422240396

CL-USER 3 > (time (dotimes (i 1000 'ok) (apply '+ *z*)))
Timing the evaluation of (DOTIMES (I 1000 (QUOTE OK)) (APPLY (QUOTE +) *Z*))
 
User time    =        0.015
System time  =        0.000
Elapsed time =        0.015
Allocation   = 2688 bytes
0 Page faults
Calls to %EVAL    14053
OK
 
CL-USER 4 > (time (dotimes (i 1000 'ok) (reduce '+ *z*)))
Timing the evaluation of (DOTIMES (I 1000 (QUOTE OK)) (REDUCE (QUOTE +) *Z*))
 
User time    =        0.078
System time  =        0.000
Elapsed time =        0.078
Allocation   = 2688 bytes
0 Page faults
Calls to %EVAL    14053
OK
 
CL-USER 5 > (time (dotimes (i 1000 'ok) (reduce #'(lambda (x y) (+ x y)) *z*)))
Timing the evaluation of (DOTIMES (I 1000 (QUOTE OK)) (REDUCE (FUNCTION (LAMBDA (X Y) (+ X Y))) *Z*))
 
User time    =        1.812
System time  =        0.000
Elapsed time =        1.813
Allocation   = 601031620 bytes
0 Page faults
Calls to %EVAL    1511053
OK