Plaster
New
List
Login
text
default
anonymous
2023.09.01 04:22:48
(defparameter *octet-vector* (make-array 2345678 :element-type '(unsigned-byte 8) :initial-element 97)) (defparameter *my-string* (make-array (length *octet-vector*) :element-type 'character)) (defun copy-str (str vec) (declare (optimize (speed 3) (debug 0) (safety 0))) (loop for i from 0 below (length vec) do (setf (elt str i) (code-char (elt vec i))))) (defun copy-vec (vec1 vec2) (declare (optimize (speed 3) (debug 0) (safety 0))) (loop for i from 0 below (length vec1) do (setf (elt vec1 i) (elt vec2 i)))) (defparameter *octet-vector-2* (make-array 2345678 :element-type '(unsigned-byte 8))) (time (copy-str *octet-vector* *my-string*)) (time (copy-vec *octet-vector* *octet-vector-2*))
Raw
Annotate
Repaste
Edit