Prolog压缩列表基础知识

Question

有人可以解释这两个程序中产生不同输出的逻辑差异吗？ （program2非常适合压缩，而program1不能

）

程序1：

SELECT
    t.*,
    t.rowid
FROM
    table.column t
WHERE
    fullorderno LIKE SUBSTR('${:p12_num}$',1,8) || '%' 

程序2：

compress(x, x).
compress([x|Tail], [x|Tl]) :-
    compress(Tail, [x|Tl])
;   compress(Tail, Tl).