【挑战】表按照给定的数重新分组

newer · 发表于 2017-6-6 22:54:13

/db_自贡黄明儒_ 发表于 2017-6-6 22:41

(defun c:bench ()
(setq lst '(1 2))
(repeat 14
(setq lst (append lst lst))
)
(xd::quickbench
'(
; (GroupByNum-1 lst 15)
(GroupByNum-2 lst 15)
; (GroupByNum-3 lst 15)
(LM:group<n lst 15)
(t11 lst 15)
(GroupByNum-5 lst 15)
(GroupByNum-6 lst 15)
(GroupByNum-7 lst 15)
)
)
)

还是5优势明显，老黄的7表现也不错

iLisp · 发表于 2017-6-6 23:05:52

本帖最后由 iLisp 于 2017-6-6 23:06 编辑

(defun divn (lst n / l rl i)
(while lst
(repeat n
(setq l (cons (car lst) l)
lst (cdr lst)
)
)
(setq rl (cons l rl)
l nil
)
)
(if (< (setq i (length (car rl))) n)
(progn
(setq l (car rl))
(repeat (- n i)
(setq l (cons nil l))
)
(setq rl (cons l (cdr rl)))
)
)
(reverse (mapcar 'reverse rl))
)

newer · 发表于 2017-6-6 23:15:24

iLisp 发表于 2017-6-6 23:05

(defun c:bench ()
(setq lst '(1 2))
(repeat 14
(setq lst (append lst lst))
)
(xd::quickbench
'(
; (GroupByNum-1 lst 15)
(GroupByNum-2 lst 15)
; (GroupByNum-3 lst 15)
(LM:group<n lst 15)
(t11 lst 15)
(GroupByNum-5 lst 15)
(GroupByNum-6 lst 15)
(GroupByNum-7 lst 15)
(divn lst 15)
)
)
)

5继续第一，新的DIVN稳定在第三

wowan1314 · 发表于 2017-6-6 23:41:07

呀！落后很多啊！
写个循环体里面不用reverse的

[Actionscript3] 纯文本查看 复制代码

(defun t22 (l n / a b i )  
    (setq l (reverse l) i (- n (rem (length l) n)))
    (while (and (/= i n) (> i 0))
        (setq l (cons nil l) i (1- i))
    )
    (setq i (1+ n))
    (foreach x l
        (if (> (setq i (1- i)) 0)
            (setq a (cons x a))
            (setq b (cons a b) i n a (cons x nil))
        )
    )
    (cons a b)
)

newer · 发表于 2017-6-6 23:52:32

wowan1314 发表于 2017-6-6 23:41

(defun c:bench ()
(setq lst '(1 2))
(repeat 14
(setq lst (append lst lst))
)
(xd::quickbench
'(
; (GroupByNum-1 lst 15)
(GroupByNum-2 lst 15)
; (GroupByNum-3 lst 15)
(LM:group<n lst 15)
(t11 lst 15)
(GroupByNum-5 lst 15)
(divn lst 15)
(t22 lst 15)
)
)
)

iLisp · 发表于 2017-6-7 00:06:47

改造一下

(defun divn1 (lst n / l rl i)
(setq i 0)
(foreach x lst
(if (< i n)
(setq l (cons x l))
(setq rl (cons l rl)
l (list x)
i 0
)
)
(setq i (1+ i))
)
(if (< (setq i (length l)) n)
(repeat (- n i)
(setq l (cons nil l))
)
)
(reverse (mapcar 'reverse (cons l rl)))
)

newer · 发表于 2017-6-7 00:25:02

iLisp 发表于 2017-6-7 00:06

(defun c:bench ()
(setq lst '(1 2))
(repeat 14
(setq lst (append lst lst))
)
(xd::quickbench
'(
; (GroupByNum-1 lst 15)
(GroupByNum-2 lst 15)
; (GroupByNum-3 lst 15)
(LM:group<n lst 15)
(t11 lst 15)
(GroupByNum-5 lst 15)
(divn lst 15)
(t22 lst 15)
(divn1 lst 15)
)
)
)

不如原来的

st788796 · 发表于 2017-6-7 11:00:53

本帖最后由 st788796 于 2017-6-7 11:07 编辑

一个有意思的现象
用下面代码和 GroupByNum-5 对比

(defun div (lst n / len m i rl)
(foreach x lst )
)

效率上还是 GroupByNum-5 高，也许和堆、栈有关，递归超量时提示的是 “堆栈溢出”
分析下GroupByNum-5 n=13 时构造的 f1

(defun f1 (a)
(setq a (cons (caddr l) (cons (cadr l) (cons (car l) a)))
l (cdddr l)
)
(setq a (cons (cadddr l)
(cons (caddr l) (cons (cadr l) (cons (car l) a)))
)
l (cddddr l)
)
(setq a (cons (cadddr l)
(cons (caddr l) (cons (cadr l) (cons (car l) a)))
)
l (cddddr l)
)
(setq a (cons (cadddr l)
(cons (caddr l) (cons (cadr l) (cons (car l) a)))
)
l (cddddr l)
)
(reverse a)
)

根据 n 构造里面都是 cons car ... 执行一次 f1 , 表 l 直接减少 n 个元素

Lisphk · 发表于 2017-6-7 11:12:33

st788796 发表于 2017-6-7 11:00

ST大师，意思是最简单的循环遍历下表（不做其他操作）效率都没GroupByNum-5 高？细思极恐...

st788796 · 发表于 2017-6-7 11:38:45

本帖最后由 st788796 于 2017-6-7 12:32 编辑

Lisphk 发表于 2017-6-7 11:12

我这测试如此，或许 alisp 有的是栈操作，有的是堆上操作，前者快后者慢
进一步这样测试

(defun div (lst n / len m i rl)
(while lst (setq lst (cdr lst)) )
)
(defun div1 (lst n / len m i rl)
(foreach x lst )
)
(defun c:bench ()
(setq lst '(1 2))
(repeat 14 (setq lst (append lst lst)))
(xd::benchmark '((div1 lst 15) (div lst 15)))
)

while 高于 foreach
命令: BENCH
Elapsed milliseconds / relative speed for 256 iteration(s):

(DIV LST 15)......1638 / 1.57 <fastest>
(DIV1 LST 15).....2574 / 1 <slowest>

随着 lst 的 cdr ，lst 长度减少，可能转到栈操作，foreach 一次加载了 lst 完全在堆上

以上只是个人猜测

wowan1314 · 发表于 2017-6-7 14:02:57

st788796 发表于 2017-6-7 11:38

我测试foreach要高于mapcar 高于while
所以现在能foreach就不用mapcar了

账号		自动登录	找回密码
密码			立即注册

[有奖答题] 【挑战】表按照给定的数重新分组

评分