anchor.diff:      (dolist (el vector) (setq summ (+ summ (expt el 2))))
       (sqrt summ)))
   
  -;(defun longest-ascending (vector)
  -;  (loop while (nth i vector)
  +(defun ascendings-length-i (vector &optional (i 0))
  +  (let ((l (list-length vector)))
  +    (if (<= (- l i) 0) 0
  +	(if (= (- l i) 1) 1
  +	    (let ((k 1))
  +	      (setq l (- l 1))
  +	      (loop while (and (< i l)
  +			       (< (nth i vector) (nth (+ i 1) vector))) do
  +		   (setq i (+ i 1) k (+ k 1)))
  +	      k)))))
  +
  +(defun longest-ascendings-length-i (vector)
  +  (let ((l (list-length vector)) (i 0) (k 0) tmp)
  +    (loop while (< i l) do
  +	 (setq tmp (ascendings-length-i vector i) i (+ i tmp))
  +	 (if (< k tmp) (setq k tmp)))
  +    k))
   
   (defun lieq (list1 list2)
     (if (or (eq list1 nil) (eq list2 nil))
  
positive.code:    (= (euclidean-norm-r (load-vector-r "N11.TestData.txt"))
  ;       (euclidean-norm-r (load-vector-i "N11.TestData.txt"))
        (euclidean-norm-i (load-vector-i "N11.TestData.txt")))
    )
  )
negative.code: 11. Запропонуйте зображення одновимірних масивів чисел за допомогою списків.
  Оголосіть функцію (рекурсивну та ітеративну), що:
  a.завантажує вектор з текстового файла; (+)
  b.знаходить довжину найдовшої впорядкованої за зростанням (спаданням) частини масиву; (+-)
  c.обчислює середньоквадратичну норму вектора. (+)
  |#
  
  