anchor.diff:  11. Запропонуйте зображення одновимірних масивів чисел за допомогою списків.
   Оголосіть функцію (рекурсивну та ітеративну), що:
   a.завантажує вектор з текстового файла; (+)
  -b.знаходить довжину найдовшої впорядкованої за зростанням (спаданням) частини масиву; (-)
  +b.знаходить довжину найдовшої впорядкованої за зростанням (спаданням) частини масиву; (+-)
   c.обчислює середньоквадратичну норму вектора. (+)
   |#
   
  
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: (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)))
  