Plaster
New
List
Login
text
default
anonymous
2022.11.06 13:03:30
(let ((l (loop :for i :from 1 :to 2000 :collect (random 100000))) (top (make-array 3 :element-type 'fixnum))) (loop :for e :in l :do (loop :for i :below (length top) :do (setf (aref top i) (max (aref top i) e)))) top)
Raw
Annotate
Repaste
Edit