本帖最后由 wzg356 于 2014-10-13 16:17 编辑
很欣赏猫老师的东西。
测试了下:经加密后的程序执行及再编译成fas都成功,但执行效率大打折扣了;
不过比在线加密http://bbs.mjtd.com/forum.php?mo ... d=655203&page=4好多了
测试的源程序,参考耗时0.48秒- ;;;vl-remove-if-not表条件筛选速度测试 参考:0.48秒
- (defun c:tt22 (/ s seconds lst mylst s2 seconds2)
- (setq s (getvar "DATE"))
- (setq seconds (* 86400.0 (- s (fix s))))
- (setq lst (ATOMS-FAMILY 1))
- (repeat 100
- (setq mylst (vl-remove-if
- '(lambda (x)
- (/= "A" (substr x 1 1))
- )
- lst
- )
- )
- )
- (setq s2 (getvar "DATE"))
- (setq seconds2 (* 86400.0 (- s2 (fix s2))))
- (princ
- (strcat "\ntt2 运行时间:" (rtos (- seconds2 seconds) 2 2) " 秒")
- )
- )
猫老师加密程序加密后,耗时21.6秒
|