回答情况：
提问时间：
问题标签：
1回答
(defun vec-intersec (vec-1 vec-2 &aux (result (make-array 0 :adjustable t :fill-pointer 0))) :if (find v1 vec-2 :test #'equal)
:do (vector-push-extend
浏览 3提问于2017-12-09得票数 1
回答已采纳
这是我目前的代码(define sum-vector (let* ((len (vector-length vec-1result index (vector-ref vec
浏览 16修改于2022-04-19得票数 0
回答已采纳
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号