验证测试表是否由能通过测试函数的元素组成

fangmin723

1. ;;说明:验证测试表是否由能通过测试函数的元素组成
   
2. ;;参数:lst:测试表
   
3. ;;参数:funtion:测试函数
   
4. ;;返回:由通过测试函数的元素组成的表返回T，否则返回nil
   
5. ;;(BF-List-VerifyItem '("1" "14" "553" "0102" "7" "56") 'distof)
   
6. ;;(BF-List-VerifyItem '("1" "a256" "h54" "0102" "f05" "56") 'distof)
   
7. (defun BF-List-VerifyItem(lst funtion) (apply 'and (mapcar funtion lst)))

;;说明:验证测试表是否由能通过测试函数的元素组成<br /> ;;参数:lst:测试表<br /> ;;参数:funtion:测试函数<br /> ;;返回:由通过测试函数的元素组成的表返回T，否则返回nil<br /> ;;(BF-List-VerifyItem '("1" "14" "553" "0102" "7" "56") 'distof)<br /> ;;(BF-List-VerifyItem '("1" "a256" "h54" "0102" "f05" "56") 'distof)<br /> (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"))

tryhi

其实有现成的系统函数 vl-every，而且执行效率更高

(vl-every 'distof '("1" "a256" "h54" "0102" "f05" "56"))

(vl-every 'distof '("1" "14" "553" "0102" "7" "56"))