anchor.diff:     (= (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")))
  +   "Tests whether search result of longest ascending sequence search is correct."
  +   (= (longest-ascendings-length-i `(1 2 3 1 2 3 4 1 2 3)) 4)
     )
   )
positive.code: 11. Запропонуйте зображення одновимірних масивів чисел за допомогою списків.
  Оголосіть функцію (рекурсивну та ітеративну), що:
  a.завантажує вектор з текстового файла; (+)
  b.знаходить довжину найдовшої впорядкованої за зростанням (спаданням) частини масиву; (-)
  c.обчислює середньоквадратичну норму вектора. (+)
  |#
  
  
negative.code: (defun sqr-summ-r (vector)
    (if (eq vector nil) nil
        (if (eq (list-length vector) 1) (expt (car vector) 2)
  	  (+ (expt (car vector) 2) (sqr-summ-r (cdr vector))))))
  
  (defun euclidean-norm-r (vector)
    (sqrt (sqr-summ-r vector)))
  