序言列表連鎖

Question

我有一個列表，如下面給出的列表。但是我的目標是使它像下面的列表中沒有列表中的額外列表。

Given: [[[[1,0,2,3],[0,1,2,3]],[[2,1,0,3],[0,1,2,3]]]] 
Desired: [[[1,0,2,3],[0,1,2,3]],[[2,1,0,3],[0,1,2,3]]] 

我試過拼合，追加和其他各種謂詞似乎無法做到這一點。

Answer 1

代碼：

inner([X], X). 

測試：

?- inner([[[[1,0,2,3],[0,1,2,3]],[[2,1,0,3],[0,1,2,3]]]], L). 
L = [[[1, 0, 2, 3], [0, 1, 2, 3]], [[2, 1, 0, 3], [0, 1, 2, 3]]].