Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны

(defun square-if-non-negative (a b c)
  (flet ((square (x) (if (minusp x) x (* x x))))
    (values (square a) (square b) (square c))))

(defun distance (a b)
  (sqrt
   (reduce #'+
           (mapcar #'(lambda (a b)
                       (let ((diff (- a b)))
                         (* diff diff)))
                   a b))))
 
(defun triangle-area/perimeter (a b c)
  (let* ((x (distance a b))
         (y (distance a c))
         (z (distance b c))
         (p (+ x y z))
         (p/2 (/ p 2))
         (s^2 (* p/2 (- p/2 x) (- p/2 y) (- p/2 z))))
    (values (sqrt s^2) p)))

;; Периметр треугольника
 
(defun Peri (x1 y1 x2 y2 x3 y3)
 (let ((a12 (- x1 x2))
       (b12 (- y1 y2))
       (a13 (- x1 x3))
       (b13 (- y1 y3))
       (a23 (- x2 x3))
       (b23 (- y2 y3)))
       (+
         (sqr (+ (^ a12 2) (^ b12 2)))
         (sqr (+ (^ a13 2) (^ b13 2)))
         (sqr (+ (^ a23 2) (^ b23 2))))))
 
==> Peri
 
(peri 0 0 1 0 0 1)
 
==> 3.414213562373100E+0
 
;; Площадь треугольника
 
(defun Area (x1 y1 x2 y2 x3 y3)
  (* 0.5 (- (* (- x2 x1) (- y3 y1))
            (* (- x3 x1) (- y2 y1)))))  
 
==> Area
 
(area 0 0 1 0 0 1)
 
==> 5.000000000000000E-1

;; С помощью функционала
 
(defun task1 (x) (mapcar #'(lambda (x) (if (>= x 0) (* x x) x)) x))
 
==> task1
 
(task1 '(1 2 3))
 
==> (1 4 9)
 
(task1 '(1 -2 3))
 
==> (1 -2 9)
 
;; И лобовое с простой рекурсией:
 
(defun task2 (x) (cond ((null x) nil)
                       ((<= 0 (car x)) (cons (* (car x) (car x)) (task2 (cdr x))))
                       (t (cons (car x) (task2 (cdr x))))))
 
==> task2
 
(task2 '(1 -2 3))
 
==> (1 -2 9)

(values (sqrt s^2) p)

(list (sqrt s^2) p)