anchor.diff:                (cond ((= i 0) (setf thetaRe theta))
                       ((< temp miniV) (setf thetaRe theta))
                       (t thetaRe)))
  -        (print miniV)
           (loop for ind from 0 to (1- (length theta)) do
                (setf (elt theta ind)
  -                   (- (elt theta ind) (* alpha (elt pd ind)))))))
  +                   (- (elt theta ind) (* alpha (elt pd ind)))))
  +        (print thetaRe)))
       ))
  +
   
   ;;; exercise below
   
  
positive.code: 
  (defun logistic-regression (z)
    "calculate the g(z), when g(z) larger than 0.5, return 1, else return 0"
    ;(print z)
    ;(print "here")
    (let ((g))
      (setf g
            (1+ (exp (- z))))
      ;(print g)
      (/ 1 g)))
  
  (declaim (inline logistic-regression))
  
negative.code:         (rowNum (1- (elt (array-dimensions X) 0))))
      (loop for r from 0 to rowNum for temp = (array-slice X r) do
           (progn
             ;(print (log (logistic-regression (array-multiply temp theta))))
           (setf result
                 (+ result
                    (+ (* (nth r y)
  