本帖最后由 fangmin723 于 2025-11-15 12:27 编辑
命令: (BF-List-VerifyItem '("1" "14" "553" "0102" "7" "56") 'distof)
T
命令: (BF-List-VerifyItem '("1" "a256" "h54" "0102" "f05" "56") 'distof)
nil
经大海大佬提醒，有现成的函数 vl-every，推荐使用 vl-every，
上面的内容就作为【自定义函数】的一个范例吧
(vl-every 'distof '("1" "a256" "h54" "0102" "f05" "56"))
(vl-every 'distof '("1" "14" "553" "0102" "7" "56"))
网友答: 其实有现成的系统函数 vl-every，而且执行效率更高
(vl-every 'distof '("1" "a256" "h54" "0102" "f05" "56"))
(vl-every 'distof '("1" "14" "553" "0102" "7" "56"))
- ;;说明:验证测试表是否由能通过测试函数的元素组成
- ;;参数:lst:测试表
- ;;参数:funtion:测试函数
- ;;返回:由通过测试函数的元素组成的表返回T，否则返回nil
- ;;(BF-List-VerifyItem '("1" "14" "553" "0102" "7" "56") 'distof)
- ;;(BF-List-VerifyItem '("1" "a256" "h54" "0102" "f05" "56") 'distof)
- (defun BF-List-VerifyItem(lst funtion) (apply 'and (mapcar funtion lst)))
命令: (BF-List-VerifyItem '("1" "14" "553" "0102" "7" "56") 'distof)
T
命令: (BF-List-VerifyItem '("1" "a256" "h54" "0102" "f05" "56") 'distof)
nil
经大海大佬提醒，有现成的函数 vl-every，推荐使用 vl-every，
上面的内容就作为【自定义函数】的一个范例吧
(vl-every 'distof '("1" "a256" "h54" "0102" "f05" "56"))
(vl-every 'distof '("1" "14" "553" "0102" "7" "56"))
网友答: 其实有现成的系统函数 vl-every，而且执行效率更高
(vl-every 'distof '("1" "a256" "h54" "0102" "f05" "56"))
(vl-every 'distof '("1" "14" "553" "0102" "7" "56"))