[ Skill ] append1, append, nconc, tconc, lconc, cons 效率对比

https://www.cnblogs.com/yeungchie/

先说结论: cons > tconc, lconc >> nconc > append1, append

append1

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(3e4)
            a = append1(a i)
        )
    )
    length(a)
)
; UserTime  : 12.108453s
; SysTime   : 0.000000s
; WallClock : 12.104178s
; 30000

append

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(3e4)
            a = append(a list(i))
        )
    )
    length(a)
)
; UserTime  : 13.654966s
; SysTime   : 0.000000s
; WallClock : 13.651223s
; 30000

append1, append 这两个函数操作写链表速度奇慢,因为它每次追加元素都需要把整个链表遍历一次。

唯一的好处就是对初学者友好,容易理解和使用,因此在知道数据量不大的前提下,才去使用这两个函数吧。

nconc

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(3e4)
            a = nconc(a list(i))
        )
    )
    length(a)
)
; UserTime  : 2.995670s
; SysTime   : 0.000000s
; WallClock : 2.994434s
; 30000

相比 append 快了一点,但也没有快很多,毕竟只追加 30000 次。

它对于输入变量是具有破坏性的,会直接修改变量,而不像 append 在底层会将数据进行拷贝,因此会快一些,更省内存。

tconc

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(3e4)
            a = tconc(a i)
        )
        a = car(a)
    )
    length(a)
)
; UserTime  : 0.001871s
; SysTime   : 0.000000s
; WallClock : 0.001871s
; 30000

tconc 会保留链表中最后一个节点,当追加列表时直接操作该节点,因此不需要反复遍历整个链表。car 指向我们期望的链表。

在上面的情况下,相比 append 快了近 5000 倍,已经没有可比性了,所以后面函数把追加次数调整为 60000000 来比较。

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(6e7)
            a = tconc(a i)
        )
        a = car(a)
    )
    length(a)
)
; UserTime  : 4.085272s
; SysTime   : 0.000189s
; WallClock : 4.083197s
; 60000000

lconc

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(6e7)
            a = lconc(a list(i))
        )
        a = car(a)
    )
    length(a)
)
; UserTime  : 4.741206s
; SysTime   : 0.000000s
; WallClock : 4.740194s
; 60000000

两者区别在于,tconc 拼接的是一个标量,lconc 拼接的是一个链表。

速度相差不大,看情况来使用吧。

cons

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(6e7)
            a = cons(i a)
        )
    )
    length(a)
)
; UserTime  : 1.865164s
; SysTime   : 0.000000s
; WallClock : 1.865343s
; 60000000

这个函数又快不少,它是将元素追加到链表开头,因此不需要遍历元素,也不需要记忆节点。

由于是向前追加,元素顺序可能会跟我们期望的相反,这时候就需要降链表翻转一下,看看速度。

lisp 复制代码
let((a)
    ycTime(
        for(i 1 fix(6e7)
            a = cons(i a)
        )
        a = reverse(a)
    )
    length(a)
)
; UserTime  : 3.655040s
; SysTime   : 0.000000s
; WallClock : 3.649090s
; 60000000

翻转增加了一点耗时,速度跟 tconclconc 差不多。