anchor.diff:          (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))))
  +           ;(print (log (logistic-regression (array-multiply temp theta))))
            (setf result
                  (+ result
                     (+ (* (nth r y)
  
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:                (1+ rowNum))))
      result))
  
  
  ;; Sbcl dont have the fminunc function which in matlab, so I need figure out the new
  ;; method to fix that
  ;; the answer is theta = -24.9330 0.2044 0.1996 cost = 0.2035
  (defun gradient-descent-lr (X theta y alpha iterTime)
    "use some functions get mini value"
    (let ((thetaRe)
          (miniV))
      (dotimes (i iterTime)
        (let ((pd (partial-derivative-lr X theta y))
              (temp (compute-cost X theta y)))
          (print i)
          (setf miniV 
                (cond ((= i 0) (setf miniV temp))
                      ((< temp miniV) (setf miniV temp))
  