LeetCode Online Judge: Maximum Product Subarray

(defun max-seq-prod (lst)
  (let ((n (length lst))
        (aseq  nil)
        (mseq  nil)
        (cprod nil) 
        (mprod (car lst)))
   (iter (for i from 0 to (- n 2))
      (iter (for j from (+ i 1) to (- n 1))
        (setq aseq (subseq lst i j))
        (setq cprod (apply '* aseq))
        (when (> cprod mprod) (setq mseq aseq mprod cprod))))
   mseq))  
 
==> max-seq-prod
 
(max-seq-prod '(1 2 3 0 1 3 4 8 -4 -6 0 3 4))
 
==> (1 3 4 8 -4 -6)

(defun accs (w &optional (acc (list (car w))))
  (if (cdr w)
      (cons (reverse acc)
            (accs (cdr w) (cons (cadr w) acc)))
      (list (reverse acc))))
 
(defun maximum-product-sequence (w
                                 &aux
                                 (v (loop for d on w
                                       nconc (accs d)))
                                 (z (mapcar
                                     #'(lambda (a)
                                         (list a
                                               (reduce #'* a)))
                                     v))
                                 (m (reduce #'max z :key #'cadr)))
  (mapcar #'car (remove-if-not #'(lambda (a) (eq (cadr a) m)) z)))
 
> (maximum-product-sequence '(1 2 3 0 1 3 4 8 -4 -6 0 3 4))
((1 3 4 8 -4 -6) (3 4 8 -4 -6))
> (maximum-product-sequence '(2 3 -2 4))
((2 3))

(defun accs (w &optional (acc (list (car w))) &aux (d (cdr w)))
  (if d
      (cons (reverse acc)
            (accs d (cons (car d) acc)))
      (list (reverse acc))))
 
(defun maximum-product-sequence (w
                                 &aux
                                 (v (loop for d on w
                                       nconc (accs d)))
                                 (z (mapcar
                                     #'(lambda (a)
                                         `(,a ,(reduce #'* a)))
                                     v))
                                 (m (reduce #'max z :key #'cadr)))
  (mapcar #'car (remove-if-not #'(lambda (a) (eq (cadr a) m)) z)))
 
> (maximum-product-sequence '(1 2 3 0 1 3 4 8 -4 -6 0 3 4))
((1 3 4 8 -4 -6) (3 4 8 -4 -6))
> (maximum-product-sequence '(2 3 -2 4))
((2 3))