求多维数组转5维数组的非递归方法
本帖最后由 guosheyang 于 2022-10-4 18:51 编辑朋友们这个是根据caoyin版主的代码改的，列表按5个分组，用的是递归法，如果不用递归法的话，能否达到这个代码运行的速度，代码需要怎样组织？ 谢谢！
;多维数组转5维数组
;(MD->5D (setq l'(1 4 7 10 13 16 19 24 33 46 3 6 9 12 15 18 21 67 43 78 2 5 8 11 14 17 20 76 78 99)))
(defun md->5d (L)
(if (>(length L)5)
(cons (list (car L)(cadr L)(caddr L)(cadddr L)(cadddr(cdr L)))
(md->5d (cddddr(cdr L)))
)
(list L)
)
)
;测试
(progn
(setq stime (getvar "millisecs"));;计时起点
(repeat 100000
(md->5d L)
)
(setq zsj(-(getvar "millisecs") stime))
)
本帖最后由 tigcat 于 2022-10-4 22:43 编辑
guosheyang 发表于 2022-10-4 19:03
tigcat朋友说的没错当数据量大的时候（复制成6万个左右的数字） ，的确while循环的代码（caoyin版主的 ...
guosheyang大侠研究仔细,学习啦.晚上有点时间,我也试了试caoyin版主的代码，证实效率很高
(setq l'(1 4 7 10 13 16 19 24 33 46 3 6 9 12 15 18 21 67 43 78 2 5 8 11 14 17 20 76 78 99))
(repeat 12 (setq L(append L L)));有122880数据
(defun tt (lst /)
(setq stime (getvar "millisecs"))
(while lst
(setq lst2 (cons (list (car lst) (cadr lst) (caddr lst) (cadddr lst) (cadddr (cdr lst))) lst2)
lst(cddddr (cdr lst))
)
)
(reverse lst2)
(setq zsj(-(getvar "millisecs") stime))
)
;(tt l)
;运行了好几次都在100ms以下,最快30ms,最慢91ms,平均值60ms左右。基本我的老爷机都是秒出结果
;;;;2#我写的也测试了一把
(defun tt(lst / )
(setq stime (getvar "millisecs"))
(setq i 0 lst1 nil lst2 nil)
(repeat (/ (length l) 5)
(repeat 5
(setq lst1(cons (nth i l) lst1))
(setq i (1+ i))
)
(setq lst2 (cons (reverse lst1) lst2))
(setq lst1 nil)
)
(reverse lst2)
(setq zsj(-(getvar "millisecs") stime))
)
;最后用时25188ms,好慢啊
;;;caoyin版主建议第一个reverse取消,用list组表,根据版主建议,改写2楼的代码
(defun tt(lst / )
(setq stime (getvar "millisecs"))
(setq i 0 lst1 nil lst2 nil)
(repeat (/ (length l) 5)
(setq lst1(list (car lst)(cadr lst)(caddr lst)(cadddr lst)(cadddr (cdr lst))))
(setq lst2 (conslst1 lst2))
(setq lst1 nil)
(setq lst (cdr (cddddr lst)))
)
(reverse lst2)
(setq zsj(-(getvar "millisecs") stime))
)
;这个运行速度和版主的差不多啦.从25000ms提升到50ms左右,提升了499倍,当然我这代码简洁度差caoyin版主的可就多啦
;;;;楼主前些天发帖的代码我也试了试
(defun @group (lst n / item )
(setq stime (getvar "millisecs"))
(foreach element(reverse lst)
(setq item(cons element item))
(if(= (length item) n)
(setq new (cons item new) item nil)
)
)
(setq zsj(-(getvar "millisecs") stime))
);结果在100ms-120ms之间,保持了极高的速率，并且是通用的。
;以上测试均默认维数n与表L的长度是整数倍关系。
本帖最后由 caoyin 于 2022-10-4 08:03 编辑
tigcat 发表于 2022-10-3 22:46
我觉得单纯的repeat10万次,不知道会不会失真。最好是找一组有10万个数据的表处理看看速度。另外有些程序 ...
递归的优点缺点都很明显：
优点：避免reverse，每一次reverse都是一次遍历。
2楼的代码把第一个 reverse 换掉，
改成car、cadr、caddr、cadddr、cadddr+cdr估计速度会提升一倍
缺点：递归有堆栈次数的限制，处理一般手动生成的数据没啥问题。如你5楼所说处理10万数据的表就行不通。
--------------------------------------------------------------
2楼代码改为下面的结构：
(defun tt (lst / lst2)
(while lst
(setq lst2 (cons (list (car lst) (cadr lst) (caddr lst) (cadddr lst) (cadddr (cdr lst))) lst2)
lst(cddddr (cdr lst))
)
)
(reverse lst2)
)
本帖最后由 guosheyang 于 2022-10-4 19:28 编辑
tigcat 发表于 2022-10-3 22:46
我觉得单纯的repeat10万次,不知道会不会失真。最好是找一组有10万个数据的表处理看看速度。另外有些程序 ...
tigcat朋友说的没错当数据量大的时候（复制成6万个左右的数字） ，的确while循环的代码（caoyin版主的那个）运行快得多 差不多80:1000
当我把数据复制成11万多时 递归的代码停摆了
本帖最后由 tigcat 于 2022-10-3 15:41 编辑
感觉跟前面的一样的啊,试了试caoyin版主的递归用时是这个的1/4,这个写得不好
(defun tt()
(setq i 0 lst1 nil lst2 nil)
(repeat (/ (length l) 5)
(repeat 5
(setq lst1(cons (nth i l) lst1))
(setq i (1+ i))
)
(setq lst2 (cons (reverse lst1) lst2))
(setq lst1 nil)
)
(reverse lst2)
)
本帖最后由 guosheyang 于 2022-10-3 15:46 编辑
tigcat 发表于 2022-10-3 15:19
感觉跟前面的一样的啊,试了试caoyin版主的递归用时是这个的1/4,这个写得不好
(defun tt()
(setq i 0 lst1 ...
嗯 就是看能否达到递归的那个速度？以前很多人不是说递归慢吗好像还不完全是那样哈 guosheyang 发表于 2022-10-3 15:43
嗯 就是看能否达到递归的那个速度？以前很多人不是说递归慢吗好像还不完全是那样哈
你对递归还不是很了解。 mahuan1279 发表于 2022-10-3 22:00
你对递归还不是很了解。
我觉得单纯的repeat10万次,不知道会不会失真。最好是找一组有10万个数据的表处理看看速度。另外有些程序编译fas后跑得比编译前的lsp快。
楼主学习能力很强,看了caoyin版主的代码马上可以自己改写一个,佩服。
caoyin 发表于 2022-10-4 07:51
递归的优点缺点都很明显：
优点：避免reverse，每一次reverse都是一次遍历。
2楼的代码把第一个 reve ...
谢谢caoyin版主的指点，代码很简洁，学习啦！ mahuan1279 发表于 2022-10-3 22:00
你对递归还不是很了解。
嗯是的递归平时用的不多 caoyin 发表于 2022-10-4 07:51
递归的优点缺点都很明显：
优点：避免reverse，每一次reverse都是一次遍历。
2楼的代码把第一个 reve ...
版主的这个代码运行够快了
页:
[1]
2