Plaster
New
List
Login
common-lisp
default
anonymous
2021.04.26 11:33:38
CL-USER> (defun pad-vector (vector &key (length 32) (padding 0)) (if (>= (length vector) length) vector (replace (make-array length :initial-element padding) vector :start1 (- length (length vector))))) PAD-VECTOR CL-USER> (pad-vector #(1 2 3 4 5)) #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 3 4 5)
Raw
Annotate
Repaste
Edit