anchor.diff:           (ar (make-array len :initial-contents ll)))
       ar))
   
  -(defun read-data ()
  +(defun read-data (path)
     (let ((result))
  -    (with-open-file (f #P"./testData.txt"
  +    (with-open-file (f path
                          :direction :input)
         (declare (inline *list-to-array))
         (do* ((l (read-line f) (read-line f nil))
  
positive.code: (defun parse-string-to-float (line)
    (with-input-from-string (s line)
      (loop
         :for num := (read s nil nil)
         :while num
         :collect num)))
  
  (defun get-num-out (str)
    (declare (inline parse-string-to-float))
  
negative.code:                (1+ rowNum))))
      result))
  
  (defun gradient-descent (X theta y alpha iterTime)
    (dotimes (i iterTime theta)
      (let ((pd (partial-derivative X theta y)))
        (loop for ind from 0 to (1- (length theta)) do
             (setf (elt theta ind)
                   (- (elt theta ind) (* alpha (elt pd ind)))))
        (print theta))))
  
  ;;; exercise below
  ;;;
  ;;;
  