我正在为 Gimp script-fu 启动方案,但我找不到从向量中删除项目的简单方法。
我唯一的解决方案是:
- 将向量转换为列表
- 从列表中删除项目(http://stackoverflow.com/questions/1905222/how-to-delete-an-element-from-a-list-in-scheme)
- 将列表转换为向量
这是一种更简单的方法吗?
这是我的代码:
(set! myvector (list->vector (delete item (vector->list myvector))))
(define delete
(lambda (item list)
(cond
((equal? item (car list)) (cdr list))
(else (cons (car list) (delete item (cdr list)))))))